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PRIMi TA BRASILEIRA DE MtCROCOMPUTADORES 

APLICACOES DOMESTICAS 

Algumas ideias que vao ajudar seu micro 
a sernlBas versatil nos afazeres do lar 








o micro que cresce com voce. 



AS 



C AR ACTERISTIC AS TECNIC AS: 

• 16 K bytes de memorM initials 
Expansao interna para 32 e 
48 K bytes 

• 8 K bytes de memorM EPROM 

• Mlcroprocessador Z-80A 
ana com 

acao mecanfca positive 

• 40 t eel a s I 154 f uncoes 

• Basic e llnguagem de m&qulna 

• Video normal ou reverso 

• Saida para quaiquer Impressora 

• M an Ipu la ate quatro cassetes 
com geracao de arqulvo 

• Modem 

• Joystick 



• Speed File 

• Fonte de a 



• Fbnte de alfmentacao 
embutlda ft 10/2 20 volts J 

• Nrvel de leltura de gravacao 

automatlco 



O M icrocomputador AS 1000 
e uma otima escolha para quern esta 
inicfando na clencia da computacao. Seus 
recursos de prog ra ma cao e sua concepcao 
modular, po rem, perm item que ele 
o acompanhe ate as aplkacoes mafs 
soflstlcadas. 

O AS- 1000 Ja nasce com uma bfblloteca de 
mil hares de prog ra mas para jogos, 
administracao domestica, aplicacoes 
comerciais e proflsslonals. 

O AS-I000 e fabricado com a qualidade 
ENG E BR AS e garantido por um ana* 

Entre na era da informal* ca com a escolha 
certa. AS too o, o seu micro pessoal. 

Escreva-nos, sua correspondent** nao f icara sem resposta. 

BENGEBRAS 
ELETRONICA E INFORMATfCA LTDA. 
Rua do Russel, 450 -3,° andar 
cep 22210 RJo de Janeiro - RJ 
Tel.; (021) 205-4898 
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■ A800 DISK CONT ■ MULTIFUNCTION CARD 

MtCROCRAFT MICROCOMPVTADORES LTDA,. 
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O Cobra 305 
quertrabalharna 

suaempresa. 



Experiencia 

anterior nas seguintes 

funpoes: 



Administragao e Controle de Repre- 
sentacao de Terceiros 

Administragao de Alugueis 

Administragao de Condom inios 

Administragao de Construtoras 

Administragao de Loteamentos e 
Imoveis 

Administragao de Transportadoras 

Administragao Hospitalar 

Apuragao de Custo por Curva de Ser- 
vigosUNIMED 

Armazens Gerais 

Arrecadagao Tributaria 

Ativo Fixo 

Ativo Fixo com Correcao Anual em 
Cruzeiros, Dolares e ORTNs 

Ativo Fixo com Correcao Mensal, Tri- 
mestral e Semestral em ORTNs 

Business Calc 

Cadastramento e Custos de Equipa- 
mentos 

Cadastramento 
Generico 

Cartaode 
Credito 

Cartorios 




Cobranga 

Consorcio 

Conta-Corrente e Contabilidade 
Integrada 

Contabilidade 

Contabilidade com Fechamento Au- 
tomatico em Cruzeiros e Dolares 

Contabilidade com Multivolume 

Contabilidade com Orgamento 

Contabilidade com Resultados 
Operacionais 

Contabilidade Comercial 

Contabilidade Especial 

Contabilidade Geral 

Contabilidade Geral para Pequenas 
Empresas 

Contabilidade Gerencial 

Contabilidade para Bureau 

Contabilidade para Cooperativas 

Contabilidade para Entidades de Pre- 
videncia Privada 
Contabilidade para Escritorios 

Contabilidade para 
UsinadeAgucar 

Contabilidade 
Publica 

Contas a Pagar 

ContasaPagarpara 
Construtoras 



Contas a Pagar para Cooperativas 

Contas a Receber 

Contas a Receber com 
Controle de Contratos 

Contas a Receber Industrial 
com Emissao de Duplicatas 

Contas a Receber para Dis- 
tribuidores de Medicamentos 

Contas a Receber para Coo- 
perativas 

Contas a Receber - Radiologia 

Controle de Condominio e 
Alugueis 

Controle de Consorcios 

Controle de Contribuintes 

Controle de Estoque 

Controle de Estoque 
Comercial 

Controle de Estoque 
para Comercio de 
Pneus 

Controle de 
Estoque de Roupc 






Controle de Estoque- Distri- 
buidores de Medicamentos 

Controle de Estoque-Revende- 
dores 

Controle de Estoque- Varejo 

Controle de Fornecimento de 
Cana por Peso 

Controle de Produtividade de Cana 

Controle de Materials 

Controle de Pedidos 

Controle de 
Custo de 
Obras 




Controle de Recebirnen- 
toSindical 

Controle de 

Regtstro 
Academico 

ja^ Controle 

e Esgoto 

Controle deTdulos 

eProtestos- 

Cartorio 

Controle deTrate- 
gos ■ Faturamento 
e Estatisticade 
_ Unhas 

Controle do Ativo 

Controle Financeiro Escolar 

Controle Imobitiario 

Controle Industrial para Montadoras 
por Com t i 

Controle Monetario de Balances em 
ORTN 

Controle para Distribuidora de Gas 
Engarrafado 

Correcao^Depreciagao do Ativo 

Correcao Monetana dos Balances 

Corretoras de Seguro 

Crediario 

Custo Industnai de Ragoes 

Despacho Aduaneiro 

DistnbuKJores" Compras. Contas a 
Pagar. Estoque, Faturamento. Contas 
a Receber e Eslatistica de Vendas 

Distribuidoras de Bebidas (Fatura- 
mento. Controte e Estoque) 

Editex • Processamento de Texto 

Emissao de Carries 

Emissao de Notas Promissdrias. Bor- 
deros. Cartas de Debrto 

Estoque para Industria e Comercio 

Estoque para Cooperativas 

Eliqueta Farmaceutica 

Faluramerito para Comercio e 
Industria 

Faturamento para Comercio, 
Industria eServigos 

Faturamento e Controte de 
Vendas 

. Faturamento eDistribui- 
^*cao de Produtos Farma- 

ceutrcos 



Faturamento Industnai 
Faturamento para 





Faturamento de Cana 



Cooperativas 

Faturamento, Esto- 
que e Usta de Producao 

Faturamento. Estoque e Vendas 

(Comercio Vareiista) 

Faturamento. Livros Fiscais e Rela- 
tbriosGerenciais 

Folha de Pagamento 

Folha de Pagamento Geral 

Folha de Pagamento Geral para 
Comercio, Industnae Services 

Folha de Pagamento para 
Bureau 

Folha de Pagamento Mensa 
eQuinzenal 

Fdha de Pagamento Sen 

Folha de Pagamento Semanal para 
Const rutores 

Folha de Pagamento para Empresas 
deOnibus 

Folha de Pagamento Semanal para 

UsinasdeAcucar 

Folha de Pagamento Semanal para 

UsinasdeAlccol 

GestaodePessoal 

Gestao de Vendas Integrada e Estoque 

Gestae Rnanceira 

Gestao Hipotecana 

Inventanopara Editoras 

IPTU 

Livros Rscais 

Uvros Hscas de Enlrada 

Livros Rscais de Saida 

Livros Rscais para Bureau 

Uvros Rscais para 

Cooperativas 

Mala Direta 

Mala Direta, Assinantes 
e Reembolso Postal 
Orgamento e Controle 
de Obras 

Orcamento 

Patrimonial 

Pedidos. Estoque. 
Faturamento e Contas 
a Receber 

Pesquisa Salanal 

Ranejamenloe 
Controle deProdugao i 

Projecaode Obras 




Hi 



Ragao de Custo Minimo 

Sistema 

Operacional 
Vector 

Transporte. 

stespropramas 

aplicativos do Cobra 305 sao oesen- 

volvidosegarantidos pelasjsegumtes 

software houses PRO-LOGOS. 

GTS. APL, DATA 100. 

CONSIST. PIONEIRA. SOFT. 

COMPUTELDATAMEC. 

PLACOMIMS 

COMPACT. IMPLANTA, 

DATA PLAN, INFEL, 

1NFORCOMP, NM, 

i FLUXO. APRODATA MPN 

SIMICRON, DATAMED. SUPLIUS, 

SMAR-APD, GDA. DATA- ELO.COPPE . 

BACKUP. SICOM. MIS. MINI-MICRO 

e JOTO 

Para maiores mlormacoes sobre o 
Cobra 305. ligue para 
Rio de Janeiro - Tel (02 1 ) 265-7552 
S. Paulo-Tel (011)826-8555 
Brasilia -Tel.: (061) 273-1060 
B.Horizonte-Tel : (031)225-4955 
Curitiba-Tel (041)234-0295 
Ronanopolis-Tel (048)222-0588 
Porto Alegre- Tel. (0512)32-71 1 1 
Salvador -Tel (071)241-5355 
Recife-Tel. (081)222-0311 
Fortateza-Tel (085)224-3255 







Cobra 305. micro prof issional. 



A geracao def initiva e sempre a prdxima 



p&D Slstemas Eletronico^SA. 




SCARFMAN 



Voo§ s6 descobf e o qua nto precise de um Micro-Corn 
putador JR da Sysdata depots que o conhece de perto. 

Vocfi vai ter certeza de que fez urn 6timo negocto ao 
adquirilo assim que o colocar na sua empresa ou na sua 
casa. 

JR da Sysdata G r^pido, e versatil, 6 compacts 
APLICAgOES: 

Contabilidade, controte de contas a pagar, controte de 
contas a recebef , folha de pagamento, controte de esto- 
que, controle de clientes, retatbrio de clientes, mala direta, 
calculos de orcamentos f inanceiros.controle de processos 
industrials, calculos de engenharia, calculos de estatisti- 
cas, funcdes matematieas, funcdes logicas em cadaia de 
caracteres i STRINGS!, graficos, jogos antmados, progra- 
mas educadonais. 
O JR PERMITE AIN DA: 

O acesso a grandes sistemas de computacao, a comuni- 
cacao entre os departamentos de Empresa, efetuar pro- 
gramas espedficos para cada Empresa. 

E, como se nao bastasse, ele 6 o Micro-Computador de 
manor preco do mercodo 

Com todas as quafidades que tern, o JR da Sysdata nem 
precisava ser tao economic© . Mas e. 

A final, ele e o mats complete Micro-Computador de sua 
geracao. 

Inclusive no preco. 

Voce pode testar estas e outras qualidades do JR em 
oualquer dos nossos revendedores. 




AV. PACAEMBU, 788 
CEP 01155- TEL: 67.5900 
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SUMARIO 



n EDITOR DE TEXTOS 
- Deixe as palavras 
fluirem livremente em suas 
cartas, artigos e relatorios. O 
trabalho de composicao sera 
feito por este utilitario, 
escrito por Ivan Camilo da 
Cruz especialmente para voce 
e seu micro TRS-80. 
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^^O NEWDOS QUE 
LLsM) ESTA NOS 
MANUAIS — A maioria dos 
usuarios da linha TRS-80 
usa, mas poucos o conhecem 
a fundo. Neste artigo. Renato 
Degiovani fala sobre a 
estrutura do NEWDOS/80. 
explicando ainda como 
manipular seus registros. 
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FCFF Fl 

FCFC F( 

FF10 FF 
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^O MICRO BUG 

JO initio de uma 
caminhada que MICRO 
SISTEMAS se propoe a 
seguir com quern possui um 
micro Sinclair: vamos 
construir, passo a passo, um 
sistema utilitario em 
linguagem de maquina, 
tirando todas as duvidas 
(antigas e novas) e discutindo 
as formas de programacao 
utilizadas. 

CAA GERACAO RADIO 
3 U SHACK — Apesar de 
certas incompatibilidades, a 
familia TRS-80 continua 
unida. e aqui tracamos seu 
perfil nacional: os modelos, 
seus contrastes, recursos. 
software, o que pensa o 
usuario. tendencias do 
mercado e demais 
caracten'sticas. 
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CONTROLE AS DESPESAS NO MICRO 

— Programa de Jose Rafael Sommerfeld. 

PIL, A FERTILIDADE PROGRAMADA 

Programa de Armando Oscar Cavanha Filho 
e Maria Beatriz de Campos Cavanha. 



CALCULOS PRECISOS EM BASIC - 

Artigo de Akeo Tanabe. 

CIV I M ou COMO TRATAR PISCINAS 
NO MICRO — Programa de Fernando Cesar 
de Oliveira Galli. 



INTEGRACAO NUMfcRICA - Programas 
de Carlos Alberto Mattana e Rogerio 
lerusalimschv. 



11A ORCAMENTO DOMtSTICO Programa 



de Luiz Gonzaga de Alvarenga. 

OTIMIZE SEUS PROGRAMA 

— Artigo de Carlos Alberto Yamana. 



/TO OTIMIZE SEUS PROGRAMAS EM BASIC 



72 



PROFESSOR PICAPAU — Programa de 
Roberto Quito de Sant'Anna.i. 



Oil CURSO D 



E ASSEMBLER - XV 



86 



SEU PROGRAMA MERECE UMA BOA 
APRESENTAC^O - Programa de Eduardo 
Hauff. 
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/uro que c verdade. Conhcco uma 
pessoa que, quanta maior a injla- 
{Jo brasileira mais acredita no 
Brasil como um eldorado. Em- 
bora alerta para a possibilidade 
de tratar-sc apenas de mais um naciona- 
lista em estado de delirio profunda, de- 
vo admitir que acho nele uma panta de 
razdo. Realmente numa economia estd- 
vel, as chances de se ganiiar dinhciro 
com novas empreendimentos, salvo em 
raws setores, e consideravclmente me- 
nor pela propria acomodacdo do cantcx- 
to economico. Ao passo que, num am- 
bient e de- 240% de inflacdo anual, mui- 
tas ciiances sdo criadas. 

De fata nossa crise, da qual a indiee 
inflaciandrio c causa -produto, gera mui- 
tas apartunidades aos empresdrios so- 
breviventes. Vejam que falo nos elcmen- 
tos econamicamente ativos - aqueles 
que invcstem - e ndo da segmento liga- 
do a especulacdo. atividade que, em cri- 
se, prospera paralelamente as aportuni- 
dades e e. ndo raro, confundida com 
elas. 

No caso particular da industria. de 
informdtica, a dupla crise -oportunidadc 
ndo estd so. E'stc segmento tern vivido, 
paralelo aos problcmas, o beneficio da 



reserva de mercado para certas areas, 
especialmente a de fabricacdo de equipa- 
mentos de menor porte, cntregue ex- 
clusivamente as empresas nacionais. 

Com isto, a que vimos no ano passu- 
do - e a tendencia parece persistir em 
84 - eo crescente desenvolvimento e 
capitalizacdo destas empresas. Algumas 
delas. que antes da explosdo deste mer- 
cado eram bem pequenas ou nem mes- 
mo pensavam em existir, estda hoje ocu- 
pando honrosos primeiros lugares no 
ranking nacional. 

A industria de perifcricos tambem 
demons tra claramente estar com pe fir- 
me no caminho de uma otimizacdo de 
sua performance economica, alcancando 
altos indices de nacionalizacdo em seus 
produtos. 

Recentc estudo da Abicomp, entida- 
de dos fabricantes da area, mostra ainda 
que a industria nacional de informdtica 
gerau em 83 perto de 5000 novas em- 
pregas, absorvendo parcela considerdvel 
de mdo-de-obra espccializada, principal- 
mente nas etapas de desenvolvimento 
e pesquisa. 

Este contexto que levou ao desenvol- 
vimento da area mesmo at raves da crise 
ndo se limita. contudo, na reserva. Den- 
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tre os outros fa tores do cendrio, estd 
uma tendencia a centralizacdo das deci- 
soes na esfera federal at raves da SEI, 6r- 
gdo ligado ao Conselho de Seguranca 
Nacional e que vem acumulando fun- 
coes "normativas" como determinar 
quern pod era produzir o que e qua ndo. 

Para os que se opoem a esta ingeren- 
cia governamental. e bom lembrar que 
este nucleo centralizador, se par vezes 
exacerbou uma mera posicdo de contro- 
lador do mercado. tambem serviu de im- 
partante garantia para que a situacdo 
ndo se alterasse face as pressoes safridas 
no sentido de abrir a reserva. 

E agora que a discussdo sobre uma 
politico nacional de informdtica vai che- 
gar com toda forca a Brasilia, sendo 
apreciadas pelo Legislativo algumas pro- 
post as de projetos de lei, certamente 
vamos chegar a um consenso: a saldo e 
positive. 
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Os artigos assinados sac de responsabilidade uni- 
ca e exclusive dos autores. Todos os direitos de re 
producSo do conteiido da revista estao reservados 
e qualquer raproducSo. com finalidade comercial 
ou ndo, s6 poderd ser feita mediante autorizacao 
previa. Transcricdes parciais de trechos para co- 
■nentarios ou ref erencias podem ser feitas. desde 
que sejam mencionados os dados bibliogrdficos 
de MICRO SISTEMAS. A revista ndo aceita mate- 
rial publicrtario que possa ser confundido com ma- 
teria redacional. 
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A avanpada tecnologia do raio laser para 
converter os dados de saida de computador 
em imagens prontas para uso. 

As Prcx^essadoras/lmpressoras de Microimagens Kcxjak KOMSTAR sao verdadeiros 
perifericos de computador, que oferecem notdveis melhoramentos nas operacoes de 
saida de dados, ao mesmo tempo em que reduzem os custos operacionais. 




Permitem ainda a obtengdo de titulos em vdrios tamanhos, microtichas com indiee 
em diversos tormatos. Tudo com rapidez e perfeicdo, sempre. Mas alem dessas, existem 
outras vantagens que voce precisa conhecer. 

Ndo espere mais tempo. Envie hoje mesmo o cupom abaixo, solicitando o Guia 
Kodak para as Processadoras/lmpressoras de Saida de Dados de Computador. 
Voce verd, em detalhes, tudo o que as Processadoras/lmpressoras Kodak KOMSTAR 
podem oferecer. 

Ao receber seu Guia, voce estard abrindo as portas de sua empresa para a mais 
avangada tecnologia existente no mundo da informdtica. Uma tecnologia que tern a 
garantia de uma marca que voce conhece e confia: Kodak. 



CUPOM DE RESERVA GRATIS 

Sim. quero receber giatultamento o Guia Kodak para as Processadoras/lmpressoras de Saida de 
Dados de Computodor. 



Nome. 



Cargo 

Empresa 

Endereco 

CEP CIDADE ESTADO 

(A Kodak atendera os pedidos por ordem de chegada e na medida dos seus estoques). 



\ 
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Departamento de Sistemas Microgrdficos 

KODAK BRASILEIRA COMERCIO E INDUSTRIA LTDA. 

Rua George Eastman. 213 • 05690 • Tel: (011) 542-0111 • Sdo Paulo • SP 




O sorteado deste m§s, que recebera uma 
assinatura de urn ano de MICRO SISTEM AS, 
e Roger io Saran, de Sao Paulo. 
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NEWDOS 80 2.0 
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Achei muito interessante e oportuno o 
artigo de Joao H. V. Mattos, publicado em 
MS n° 25, pagina 30, abordando os siste- 
mas operacionais existentes para os micros 
compatfveis com TRS-80 I e III. 

Gostaria, no entanto, de fazer um repa- 
ro sobre o que foi dito em relacao ao 
NEWDOS 80 2.0: este DOS nao deixou de 
utilizar o conceito de granule mas passou a 
adoiar o conceito de lump (bloco, pedaco) 
na subdivisao do disquete, levada em conta 
pelo diretdrio. Assim, a alocacao de espaco 
que era feita atraves de granulos e trilhas 
passou a ser feita por granulos e lumps. No 
NEWDOS 80 2.0 ha" cinco setores por granu- 
lo, e dois a oito granulos por lump. O ma- 
nual, que realmente nao e muito claro, ex- 
plics isso nas pagmas 2-37 e 10-7. 

Para localizar onde comeca um lump, de- 
vemos levarem conta os parametros SPT (sec- 
tors per track) e GPL (granules per lump) 
do PDRIVE, e lembrar que ha sempre cinco 
setores por granule Por exemplo: no DIG- 
DOS (c6pia do NEWDOS 80 2.0), temos: 
SPT = 18, GPL = 2 e DDSL = 36, isto e, 
o diretbrio comeca no lump 36, que equi- 
valea trilha 20: 

36 L x 2 G/L x 5 S/G on T 
18S/T ^ ' 

Jose Ribeiro Pena Neto 
Belo Horizonte-MG 

Mandamos a sua observacao para Joao 
Henrique Volpini Mattos, autor do artigo 
"DOS: um para cada usuario", e este nos 
respond en: 

"O Sr. Jose Ribeiro Pena Neto esta absolu- 
tamente certo. Segundo as prbprias pala- 
vras do manual do NEWDOS/80, a utiliza- 
cao do conceito de lumps permite que um 
granulo se inicie em uma trilha e termine em 
outra (...), maximizando o numero de seto- 
res por trilha enquanto mantem o diretd 
rio com o mesmo formato". 
Joao Henrique Volpini Mattos 
Niter6i-RJ 
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LOJAS DE MICROS 
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Vimos por meio desta lembrar a equipe 
queelaborou a materia "Lojasde Microcom- 
putadores", publicada no nP 27 de MICRO 
SISTEMAS (dez./83), que o CESPRO - 
Cursos de Especial izacao Profissional Ltda, 6 
tambem revendedor de microcomputadores. 

Provavelmente esta equipe nao le a 
propria revisia que faz, ou entao na"o demons- 
tra nenhuma consideracao por um cliente 
que jci anunciou mais de dez vezes neste 
conceituado vefculo (...). 
Engs. Lourival J. P. Moreira e Jesse W. Costa 
CESPRO-RJ 

Verificando o nP 28 dessa revista, 
constatamos que o nosso nome nao se 



encontra na materia "Lojas de Microcompu- 
tadores" (...). 
R. R. Soares 
Diretor Comercial da Servimec S.A. 

A equips de MS apurou. num trabalho 
inedito e se>k>, cerca de duzentos enderecos 
de lojas, aos quais foram enviadosquestiona- 
rios. A fonte inicial deste levantamento foi, 
obviamente, atraves das pr6prias paginas da 
revista, sendo que nossos anunciantes foram 
os primeiros a receber nosso questionario. 
Temos arquivado todas as lojas as quais 
remetemos o questionario-base para nossa 
materia "Lojas de microcomputadores". 
Infelizmente, nem todas as lojas respond e- 
ram a nossa pesquisa. No caso do CESPRO, 
enviamos o questionario no mfis de setem- 
bro, conforme consta em nosso arquivo, e 
nao obtivemos resposta. 

Como todos os dados constantes da 
tabela de lojas sao transcribes das irrforma- 
coes prestadas pelas lojas atraves do questio- 
nario, nao podemos em nenhuma hip6tese 
nos responsabilizar pela ausenciade inform a- 
coes sobre esta ou aquela loja que nao 
respond eu a nossa consults. 

A equipe de MS gostaria de informar a 
Servimec que, por ter respond ido ao nosso 
questionario, informacoes sobre esta empre- 
sa foram publicadas em MS nP 27, pois por 
motivo de espaco fomos obrigados a des- 
membrar a materia em duas partes (MS nPs 
27e28). 
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CRIE UM ESPAQO EXTRA 
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Sou leitor assfduo de MICRO SISTE- 
MAS porque ela e" a melhor revista de mi- 
crocomputador atualmente. Mas deixo aqui 
minha reclamacSo: programas apresentados 
na revista tern muitos erros. Na"o sei se sa"o 
erros de impressa"o ou dos autores. Por 
exemplo: em MS nP 25, p4g. 115 (materia 
"Crie um espaco extra em seu disco"), li- 
nha 180, mais precisamente no POKE BUF 
+ l,J, apresenta um erro de quantidade ile- 
gal. Espero uma solucibl 
Carlos Alberto Selbach 
Sa"o Paulo-SP 

Embora tenhamos testado e verif icado o 
programa, nao encontramos nenhum erro, 
mas, como e nossa pratica habitual, entra- 
mos em contato com o autor do artigo. 
Nelson Filho, e este nos mandou a seguinte 
correspondence: 

"Em atencao ao leitor Carlos Alberto, devo 
informar que revi a listagem publicada e ne- 
nhum erro foi encontrado. A listagem pu- 
blicada 6 cbpia fiel do programa que tenho 
em maos, e que foi novamente rodado sem 
apresentar nenhum problema. 

Vamos, entretanto, analisar o erro rela- 
tado, para tentar ajuda-lo: voce afirma que 
na linha 180, exatamente na declaracao 
POKE BUF... encontrou erro de quantidade 
ilegal. O manual de BASIC afirma que, nu- 
ma declaracao POKE X.Y, o valor de X 
deve ser maior que -65535 e menor que 
65535, e Y deve ser maior que e menor 
que 255. Caso isso nao aconteca, e somente 
assim, aparecera a mensagem de quantidade 
ilegal. 

Observando a listagem do programa pu- 
blicado, por analogia podemos constatar que 
a expressao BUF + I tern que ser maior que 
-65535 e menor que 65535, e J maior que 
e menor que 255 para que nab ocorra 
erro. Observe tambem que o valor de BUF 
e fixo e e declarado na linha 420 
(BUF = 4096). O valor de I esta na mesma 



linha 180 (FOR 1=1 TO 33), e ira variar de 
1 a 33, logo, o valor de BUF t I vai variar de 
4097 a 41 29, o que esta correto. 

No caso do J, seu valor e declarado na 
linha 460 atraves de uma declaracao do tipo 
DATA. Assim, na linha 180, para rodar I 
sera lido um J correspondente. Vocfl mesmo 
pode verificar que na linha 460 nao existe 
nenhum valor de J que seja menor que 
ou maior que 255. Portanto, na"o ha erro, 
nem pode ter havido o que voce 1 mencio- 
nou, a nao ser que seja erro de digitacao. Se, 
por exemplo, voce omitiu algurna vfrgula na 
linha 460, podera acontecer que algum va- 
lor fique maior que 255, pois se nao digitar- 
mos a vfrgula existente entre 166 e 45 (pri- 
meira vfrgula), o primeiro valor de J serd 
igual a 16643, que e maior que 255. 

Reveja com atencao o programa; voce 
certamente ira encontrar algum erro de di- 
gitacao." 
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ESCLARECIMENTOS 
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Fiquei muito satisfeito ao ver meu pro- 
grama "Riscos, rabiscos e criatividade" pu- 
blicado em MS nP 27. E e justamente para 
alguns esclarecimentos o motivo desta: no 
programa publicado esta" escrito que, para 
salvar somente o programa, deve-se digitar 
RUN 340. Na"o me lembro de ter escrito 
isso na carta que acompanhou o programa, 
mas parece-me que isso nao 6 muito pr^ti- 
co, pois na hora de recuperarmos o progra- 
ma, este pararS na linha 310 UNPLOT Y, X. 
ja que as varidveis na"o estara"o determinadas 
neste momento, pois foram apagadas quan- 
do se digitou RUN 340. Minha ideia era a de 
que, para guardarmos o programa, com ou 
sem desenho na tela, primeiro deverfamos 
executar o programa (RUN) e depois pres- 
sionar RUBOUT (SHIFT+0), pois entao as 
variaveis seriam determinadas. 

Com relacao a dica "Arquive novi'deo", 
publicada na Secao Dicas de MS nP 23, que 
sugere arquivarmos algum desenho novi'deo 
com a rotina em LM apresentada, tenho a 
impressed de que na"o 6 muito litil, pois o 
Loop de transferencia (LDIR) manda o ar- 
quivo de video (fonte) para a membria no 
endereco a partir de 31000 (destino) e isso 
na"o funciona na hora de guardarmos algum 
programa em fita, pois o desenho arquivado 
na"o e transferido para a fita. 
Carlos Takayuki Honda 
Mogi das Cruzes-SP 

Houve realmente um erro da revista com 
relacao a seu programa; voce esta correto 
quanto ao RUN 340. Pedimos nossas des- 
culpas. Com relacao a utilizacao da dica 
"Arquive no video", esta abre um novo ho- 
rizonte na programacio dos micros. Para 
utiliza-la, deve-se proceder da seguinte for- 
ma: ligue o micro edigite POKE 16389, 121. 
Logo ap6s, d6 o comando NEW para que se- 
jam reservados os bytes do arquivo. A se- 
guir, digite uma linha REM com 27 carac- 
teres e introduza os codigos da dica "Arqui- 
ve no video" (MS n? 23). Digite o programa 
"Desenhe no video" (MS n? 27, pag. 40) e 
proceda a sua utilizacao normal. 

Vamos supor que voce tenha escrito um 
programa interessante e queira fazer uma 
abertura bem bonita. Faca um desenho no 
video com o programa "Riscos, Rabiscos e 
criatividade" e use a dica "Arquive no vi- 
deo"; arquive o seu desenho com RAND 
USR 16514. Depois, elimine o programa 
"Desenhe no video" e digite o seu, manten- 
do a linha REM com os codigos de maqui- 
na. Para gravar em fita, use a seqiiencia: 



2 RAND USR 16526 

3 SAVE "nome do programa" 
4: 

E depois digite o comando GOTO 2. 

Isso evita perda de tempo na gravacao 
em fita, pois todos os programas sao arqui- 
vados no cassete com o video, quer tenham 
algo impresso ou nab. Assim, quando imagi- 
namos a apresentacao de um programa, po- 
demos tambem usar linhas PRINT em vez de 
ter todo este procedimento, mas se usar- 
mos linhas PRINT nao poderemos ter as fa- 
cilidades do programa "Desenhe no video" e 
terfamos que gravar a apresentacao duas ve- 
zes (uma no programa e outra no video, ou 
um vfdeo em branco). Como a rotina "Ar- 
quive no vfdeo" deixa esse arquivo fora do 
SAVE, com este procedimento economiza- 
mos tempo de gravacao. 
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COLABORANDO COM MS 
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Gostaria de ser colaborador de MICRO 
SISTEMAS. Como devo fazer? 

Mais duas coisas: a revista esti uma mara- 
vilha, e espero que continue a publicar todos 
os artigos de Renato Degiovani, pois os 
jogos em Assembler sao maravilhosos. Agora 
a segunda coisa: espero que esta carta seja 
publicada I 
Eduardo Caribd 
Rio de Janeiro — RJ 

Af esta a sua carta publicada, Eduardo. E 
com relacao a colaborar conosco, e facflimo: 
mande sua colaboracao datilografada, com 
todas as explicacoes e exemplos de aplicacao 
bem detalhadas para que nao tenhamos 
nenhuma dificuldade para entender e testar 
(no caso de ser programa). Se tiver listagem, 
pedimos que seja datilografada (a experiSn- 
cia nos mostrou que e a forma maisfacil de 
evitar transtornos), e se tiver desenhos, 
fluxogramas ou quaisquer figuras, solicita- 
mos o maximo de detalhamento para que 
nossa equipe de arte possa identifica-los 
perfeitamente. Nao se esqueca de mandar 
tambem um breve currlculo (do tipo que sai 
sempre na revista) e de dizer para qual 
equipamento foi desenvolvido. Junte tudo e 
mande em duas vias para a Redacao — MS: 
Rua Visconde Silva, 25, Botafogo, CEP 
22281, Rio de Janeiro - RJ. Assim que 
recebermos seu material, nossa assessoria o 
analisara, e logo que tivermos um posicio- 
namento entraremos em contato com voce. 
Por f im, a equipe de MS agradece os elogios. 
Ate breve. 
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MS AGRADECE 



(. . .) Queremos parabeniza-los pela exce- 
lente qualidade da revista: nao cansamos de 
divulgi-la entre nossos alunos como um dos 
mais perfeitos subsldios para aqueles que se 
preparam em Informatica. 
Roberto Villani 
Villarosa Empreendimentos Culturais 

Acompanhamos esta revista desde o seu 
primeiro numero, e sentimos que sua 
qualidade grafica e editorial vem se aprimo- 
rando e melhorando a cada numero editado. 

Gostarfamos, portanto, de parabenizS-los 
e tambem de agradecer o total apoio que 
esta revista vem prestando a nossa loja 
(Microdata) e a todas as outras lojas em 
todo o territ6rio nacional. 
Narciso de Campos Junior 
Gerente de Marketing da Microdata 



Sou leitor assfduo de MICRO SISTE- 
MAS e sinto orgulho disso. As materias sao 
sensacionais (sem sensacionalismo, o que 6 
mais Imoportantel ) e tratam com a maior e 
mais possfvel clareza de todos os assuntos 
referentes a area a que ela se destina. 

Outra observacao e quanto a um curso 
que esta revista anuncia: o CEDM — Curso 
de Eletronica Digital e Microprocessadores, 
de Londrina. £ que sou aluno deste curso hi 
mais de um ano e digo: e um curso de pri- 
meira qualidade. 
Luiz Carlos P. de Souza 
Rio de Janeiro - RJ 

Quero agradecer pela atencao com que a 
revista me forneceu as fbrmulas do progra- 
ma Afinidades, bem como agradecer ao Sr. 
Bruno Barrasch 
Robinson S. Pereira 
Rio de Janeiro - RJ 
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SUGEST0ES 



Embora seja diffcil fazer sugestoes para 
a melhor revista brasileira no ramo, tenho al- 
gumas: 

— Sugiro transformar a revista em um ma- 
nual standard para consultas, de forma a tor- 
nar-se um soft para todos os computadores 
no Brasil; 

— Separem os assuntos: propaganda deve ser 
separada dos textos; 

— Os Indices devem ser muito mais explica- 
tivos: em ordem alfabetica dos assuntos e 
dos autores, em separado, em todas as edi- 
coes; e tambem um fndice anual, em ordem 
alfabetica, dos assuntos e dos autores; 

— Fazer fndice dos anunciantes: alfab^tico 
por assunto e alfabetico por anunciante (fir- 
mas), tanto mensal como anualmente; 

— As revistas devem ser encadernadas de ma- 
neira tal que uma pessoa interessada em tex- 
tos possa mandar encadernar no fim do ano 
sb com os textos e com o fndice geral 
anual. E as propagandas tambem poderiam 
ser encadernadas separadamente com fndice 
anual; 

— A numeracao das paginas. tanto das pro- 
pagandas como dos textos, deveria ser con- 
tfnua durante o ano todo. 

Boris Cerne 
Joao Pessoa -PB 

Tenho a seguinte sugestao: facam uma 
secao, mesmo que pequena, dedicada as cal- 
culadoras, e nela incluam nao so programas, 
mas tambem comparacoes e descricoes de 
diversas calculadoras. 
Rogerio Saran 
Sao Paulo - SP 

Tenho duas sugestoes: que se faca uma 
parte da revista dedicada somente a TKs 
e compati'veis. e outra somente para calcula- 
doras. 

Wilson Prado de Souza 
Nil6polis-RJ 

Gostaria que fosse feita uma materia so- 
bre os enderecos do Sistema Operacional do 
TK. 

Leonardo O. Metran 
Goiania — GO 



Envie suas sugestoes para MICRO 
SISTEMAS. Elas serao anotadas em nossa 
pauta e procuraremos, na medida 
do possfvel, viabiliza-las. 
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COMPUTADORES LTDA. 



CENTRO DE MICROS 

• AVALIAQAO DE CARGA 

• PLANEJAMENTO 

• DIMENSIONAMENTO 

• IMPLANTACAO DE 
EQUIPAMENTOS 

• PROGRAMAS 

• TREINAMENTO 

Implantapao racionalizada 
de micro-centros para 

• Comercio 

• Industria 

• Profis. Liberais 
EQUIPAMENTOS 

• Microdigital 

• Prologica 

• Unitron. CCE. etc.. 

SOFTWARE 

• Programas especiais 
personaliz. de softer 

• Pacotes p/ advogados 
Despachamos Via Varig 

AMPLO FINANCIAMENTO 

TEL.: 64-0468 

Alameda Lorena, n° 1310 

CEP 01424 -Sao Paulo 

'••ESTACIONAMENTO PARA CLIENTES* 



voce e seu 
micro 




<*£ 



Um relacionamento assim 
merece um programa exclusivo 

• A Informatic Service desenvolve 
programas conforme suas neces- 
sidades. 

• Presta-lhe total assistencia atraves 
de uma Assessoria de Sistemas 
exclusiva. 

• Promove a relacao 
Homem-Software-Maquina 

de forma perfeita o 



Consulte-nos ainda hoje. 

IN FORMA TIC SER VICE DO 

BRASIL 

Av. 1 3 de Maio, 47 - grupo 2707 

Fone:(021) 262-8769- RJ 



Para quern vive as voltas com cartas, relator ios ou artigos para escrever 
e tern um micro da linha TRS-80, este editor de textos vira bem a calhar 



Editor de textos 



Este artigo apresenta um mini- 
editor de textos que roda em 
computadores compativeis 
com o TRS-80 modelos I e III. 
Ele 6" um editor full screen, ou seja, o 
cursor se move por toda a tela modifi- 
cando o texto diretamente — isso facili- 
ta muito a tarefa de desenvolvimento e 
modificacSb do texto. Alem disso, o 
pr6prio editor imprime o texto em im- 
pressora, formatando-o de acordo com 
as especifica96es do usuano, o que o 
torna extremamente util na edi9ao de 
cartas, relatdrios, memorandos etc. 
O editor roda em micros com 48 Kb 
de mem6ria e sistema operacional NEW- 
DOS. Para transformar o programa para 
outro sistema ou para uma configuracao 
menor de mem6ria, fa^a as modificaijoes 
sugeridas no final do artigo. 

VAMOS A ELE 

Apos digitar. rode o programa. Logo 
depois de imprimir o cabe^alho, o pro- 
grama apaga a tela, coloca o cursor no 
canto superior esquerdo e os niimeros 
1 -1 na penultima linha. Os dois nii- 
meros indicam, respectivamente, a linha 
e a col una da tela onde esta" o cursor. 

Como ja foi dito anteriormente, o 
cursor pode mover-se pela tela. Experi- 
mente move-lo usando as teclas com se- 
tas de seu teclado e veja que o cursor so 
vai ate a decima quarta linha. Isto acon- 
tece porque as duas ultimas linhas sao 
reservadas para mensagens do sistema e 
para a introduca"o de dados de controle. 
As teclas "seta a direita" e "seta "a es- 
querda" sao usadas junto com a tecla 
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Ivan Camilo da Cruz 



< SHIFT > para fazer tabulates. 

As 14 linhas de texto que aparecem 
de uma vez na tela equivalem a uma pa"- 
gina. editor, quando estiver rodando 
em 48 Kb, pode manipular 31 destas te- 
las, totalizando 434 linhas. 

Experimente agora digitar caracteres. 
Voce vera 1 que, a medida que os digita, 
eles sao impressos na tela e o cursor se 
move. Tente, usando as setinhas. mover 
o cursor sobre os caracteres digitados. 
Observe que o cursor "passa por cima" 
dos caracteres sem apagd-los. Agora, se 
voce posicionar o cursor sobre um car- 
ter e enta"o digitar outro, este ultimo 
substituira o primeiro (o que estava 
"sob" o cursor) e o cursor se move. £ 
assim que se pode modificar o texto. 

Alem das setinhas, voce pode mover 
o cursor usando as teclas < CLEAR > 
e < ENTER > ( ou < RETURN > ). A 
tecla < CLEAR > coloca o cursor na 
primeira coluna da primeira linha da tela 
(HOME). A tecla < ENTER > move o 
cursor para a primeira coluna da pr6xi- 
ma linha. 

COMANDOS ESPECIAJS DE EDICAO 

editor tern um conjunto de coman- 
dos de edicSo para facilitar o trabalho 
de quern escreve. Estes comandos sao 
usados para: 

• inserir e deletar caracteres (comando 
C): 

• inserir e deletar linhas (comando L); 

• ler um arquivo do disco (comando O); 

• escrever um arquivo no disco (coman- 
dos G e F); 



• imprimir um texto (comando W); 

• comandos auxiliares (comandos B, E, 
NeP). 

Para acessar estes comandos, use a 
seguinte seqiiencia: 

• pressione a tecla < SHIFT > e a 
mantenha pressionada; 

• pressione a tecla "seta para baixo" e 
a mantenha pressionada; 

• pressione a tecla de comando (B, C, 
P etc.). 

Estes comandos podem ser divididos 
em quatro grupos, de acordo com o tipo 
de dados que eles pedem: 

1 - comandos que pedem um dado nu- 
mCrico (C, L, P); 

2 - comandos que pedem uma especifi- 
cacSo de arquivo (F, G, 0); 

3 - comandos que pedem uma letra S 
ou N (B, E); 

4 - outros (N, W). 

Vejamos, entao, com mais detalhes, es- 
tes comandos um a um. 

GRUPO 1 

Comando C — comando C pede um 
dado numerico que pode ser um inteiro 
negativo ou positive Se o inteiro for 
positivo, o editor inserira espacos em 
branco na posicflo em que o cursor esti- 
ver. Se o inteiro for negativo, o editor 
deletar^ caracteres a partir da posi9ao 
do cursor. niimero de caracteres in- 
seridos ou deletados e igual ao valor ab- 
solute do inteiro digitado. 
Comando L - editor inserira ou delc- 
tara" linhas de acordo com o sinal do pa- 
rametro. No caso de um dado positivo, 
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a inse^ao sera" feita antes da linha onde 
estd o cursor. 

Comando P - Passa pdginas. Se o intei- 
ro for positivo, o editor passard para 
uma pdgina posterior a que esta" na tela; 
se for negativo, o editor voltara" a uma 
pdgina anterior. niimero de pdginas 
passadas d igual ao valor absoluto do 
dado. 

Em todos os comandos do grupo 1 , 
se nao for digitado o dado pedido, o edi- 
tor assumira" o valor 1 . 

GRUPO 2 

Comando F - Grava o texto no arquivo. 
Este e todos os outros comandos deste 
grupo pedem uma especifica9a"o de ar- 
quivo onde o texto sera 1 gravado. 
Comando G - Mesma funcao do co- 
mando F, com a diferen9a de que o co- 
mando G grava o arquivo de modo com- 
pactado, truncando os espa90S em bran- 
co que sobram no final das linhas. co- 
mando G e mais lento que o comando 
F, mas economiza, em certos casos, um 
substancial espa90 em disco. 
Comando — Le um texto previamente 
gravado em disco. Tudo que estiver na 
memoria serf apagado e sobreposto pelo 
novo texto. No final da leitura, a pri- 
meira pagina estara na tela e o cursor em 
HOME. 

Para todos os comandos do grupo 2, 
se nao for digitada a especifica9ao de 
arquivo, o comando sera" cancelado. Se 
for digitado um sinal de igual ( = ), o 
editor usard a ultima especifica9ao utili- 
zada em um destes comandos. 

GRUPO 3 

Comando B - Para o programa. Ao pa- 
rar, o editor perde todos os dados que 
esta"o na mem6ria. Por este motivo, a te- 
cla < BREAK > e" desativada. No en- 
tanto, o comando B pede uma confir- 
ma9a"o S/N antes de parar (isto evita aci- 
dentes). 

Comando E - Apaga a mem6ria para 
edi9a"o de outro texto. Assim como o 
comando B, este comando pede uma 
confirmacSo antes de ser executado. 



GRUPO 4 

Comando N - Nao pede nenhum dado, 
simplesmente imprime a posi9ao atual 
do cursor dentro do texto, isto e, o nii- 
mero da linha e da pagina onde esta o 
cursor. 



Comando W - Imprime o texto. Este 
comando pede dois dados nume'ricos in- 
teiros. primeiro e a tabula9ao a es- 
querda, que indicara" o niimero de espa- 
90s em branco a serem deixados a es- 
querda do papel. £ util para centralizar 
o texto. segundo e' o niimero mdximo 
de linhas que serao impressas por fo- 
lha, permitindo colocar uma margem no 
topo e no pe" da pagina. Fornecidos es- 
tes dados, o editor esperara" que o usua- 
rio posicione o papel corretamente na 
impressora para depois come9ar a impri- 
mi-lo. comando W oferece ainda uma 
flexibilidade a mais: com ele voce pode 
provocar uma alimentaca"o de folha antes 
de ser alcan9adoofim da pagina. Para isto, 
basta colocar a string III no inicio da li- 
nha do texto onde a alimenta9ao deve 
ocorrer. 



ATENCAOPARAAS 
MODIFICACOES 

Algumas modifica96es podem e de- 
vem ser feitas pelo usuririo. A primeira 
delas refere-se ao sistema operacional a 
ser utilizado. Na figura 1, temos um 
quadro que sintetiza estas modifica9Qes 
para os sistemas operacionais mais usa- 
dos atualmente em micros compativeis 
com o TRS-80 no Brasil. 

Outra modifica9ao importante e 
quanto a quantidade de mem6ria dis- 
poni'vel. Como foi dito, o editor, tra- 
balhando com 48 Kb, armazena 31 pa- 
gjnas de texto. Para uma mem6ria me- 
nor modifique as seguintes linhas: 

• linha 40 - calcule 14*64*NP+512 - 
onde NP e o niimero de paginas a ser 
encontrado experimentalmente - e co- 
loque o resultado no lugar do valor 
28288 do comando CLEAR. Por exem- 
plo, para dez paginas, o valor sera" 14 * 
64 *10+512 =9472. 

• linha 60 — modifique o valor da va- 
riavel PG para o novo niimero de pagi- 
nas. 

Se forem retirados os comentarios do 
programa, o editor podera" passar a ar- 
mazenar pelo menos uma pagina de da- 
dos a mais. Neste caso, a modifica9ao 
dada anteriormente tambe'm deve ser 
feita, s6 que aumentando o niimero de 
paginas. 

usudrio pode tambe'm mudar o ca- 
rter que serve de cursor para outro 
mais a seu gosto. Para tal, basta modifi- 
car o valor da varidvel CR na linha 60. 

Na impressSo, o usulrio poderd colo- 
car, no topo de cada folha, um cabe9a- 



LINHA 


NEWDOS 


TRSDOS ou DOS500 


DIGDOS 


50 

50 
240 


CMD" BREAK, N" 
CMD" CLOCK, N" 
CMD" BREAK, Y" 


CMD "B", "OFF" 
CMD"T" 
CMD"B" ,"ON" 


CMD" BREAK, N" 
RETIRAR O COM. 
CMD"BREAK,Y" 



lho qualquer. Para isto basta inserir co- 
mandos LPRINT nas linhas 1620 a 
1640. O editor foi preparado para tra- 
balhar com impressoras padrao de 66 
linhas por pagina. Para modifica-lo para 
impressoras na"o-padrao, basta alterar 
a linha 1530 para POKE 16425,1: PO- 
KE 16424,nnn:GOSUB 1620, onde nnn 
e o niimero de linhas por folha mais 1 
na impressora. 

Uma observa9ao importante 6 quanto 
ao niimero de espa90S em branco en- 
tre aspas da linha 100. Em todas as 
strings ha dois espa90s. Se isto nao for 
rigorosamente respeitado, ocorrerSo 
conseqiiencias completamente imprevi- 
si'veis. Um ultimo detalhe e que o editor 
e deficiente em se tratando de edi9ao 
de programas, uma vez que trabalha 
com linhas de 64 colunas, enquanto que 
programas BASIC podem alcan9ar ate 
255 colunas. 



Ivan Camilo da Cruz domina v&rias linguagens 
de programagSo, dentre elas o BASIC, Pascal, 
FORTRAN, ALGOL, COBOL, PL/1 e Assem- 
bler, tendo experiincia de programacSo em 
computadores grandes, minis e micros. Atual- 
mente faz curso de Ffsica na UFRJe trabalha 
no Instituto de Qui'mica da mesma universi- 
dade, onde desenvolve um sistema contibil e 
virios outros programas administrativus. » 



Figura 1 
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INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE IN FORMATICA 




CURSOS 
LINHA IBM (Apoio Marcodata) 
OS/VS1 - VSE - VM/CMS - VSAM 
CICS - DL/1- COBOL: TECNICAS E 
OTIMIZAQAO 

MICROINFORMATICA 

BASIC - ASSEMBLER - PASCAL 
LOGO-CP/M - VISICALC 
dBASE II -WORDSTAR 

FORMACAO DE PROGRAMADORES 
DURACAO: 9 MESES 

CPD-ORT: IBM 4341 COM TERMINAIS 
LABORAT6RIO DE MICROS 

TREINAMENTO IN HOUSE 

SOLICITE INFORMAC0ES E 
FOLHETOS EXPLICATIVOS 



RUA DONA MARIANA • 213 - BOTAFOGO 
TELS: 226-3192 • 246-9423 



EDITOR DE TEXTOS 



Editor de textos 



10 
20 



30 
40 

50 

60 



BO 

90 

100 



no 

120 
ISO 
140 
ISO 
160 
170 
180 
190 
i?00 
BIO 

220 



230 
240 



250 
260 
270 
280 



290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 



410 
420 
430 
440 
450 
460 
470 

480 

490 



'MINI/BAS - Versao 1.00 - Escrito por Ivan Camilo 

CLS: PRINT CHR$(23>; 0453, "MINI-EDITOR DE TEXTOS"; 

0530, "Versao - 1.00"; 8898, "(i.) 1983 - por Ivan C 

amilo" 

'«»* INICIALIZACOES WW 

CLEAR 28288 'ESTE VALOR E DADO PELA FORMULA: PG*14* 

64+512, ONDE IG E' NUMERO DE PAGINAS DE TEXTO 

CI1D"CL0CK,N": CMB"BREAK,N": DEFINT A-Z 

CN = 0: 1=0: IC = 0: J=0: K = 0: LN=0:-N=0: NL=0: P=0: PI 

=0: PA = 0: PX = 0: PY = 0: PZ-0: R=0: TM = 0: AD~0: PG- 51: 

LH=PG«14s CR=176: CH=0: TL = 0: NP«0 
c$s «... AR$r ..„. STt--STRING$(64,0): IBM"" 

■*** ROTINAb EH ASSEMBLY PARA 1NSERIR E RET1RAR LIN 

HAS *** 

P1$=CHR$(17)+" "+CHRK33H" "+CHR*< 1 H" "+CHR*<2 

37 )+CHR*(il'4 >+CHR*( 20! >: P2**CHR«< 17)+" "+CHR*< 53 ) 

+" "+CHR$M -i" "+CHR*(S37)-»'CHR*(J76»+CHRf(e0l3 L 

ADA STRING CONTEM 2 ESPACOS 

DIM TX$(LH-] ) ** MATRIZ HUE L'ONTERA ' TEXTO M 

CLS 

Ad 15360: P=PEEK<AD)t POKE AD,CR 

LN=(A0 AND 1023J/64+1: CN = <A0 AND 63 M 1 

PRINT 0896, USING "HH ' mt";LN;"-";CN 

Ci=INKEYt: IF Ci="" THEN 160 

IF C* = "[" THEN 500 

IF ASC<C*»31 THEN P=ASC(C*>: IC=1: CH"-1: GOTO 510 

IC=0 



'*** VETOR DE DESVIO PARA OS RESPECTIVQS CQWAHOOS * 

<i 

ON ASC(C$) GOTO 140, 240, 260, 140, 280, 300, 320, 
330, 340, 350, 140, 370, 380, 400, 420, 440, 140, 1 
40, 140, 140, 140, 140, 160, 470, 480, 140, 140, 14 
0, 140, 140, 490 
'*** CDMANDO B *** 

POKE AD,P: PRIM BB96 , "CONFIRHE (S/N)' ";: TM1: K = 
912: GOSUB 2350: IF R*="N" THEN PRINT 0896, STRINGS 
20,32): GOTO 130 ELSE IF Ri<>"5" THEN 240 ELSE DHD" 
BREAK, Y": CLEAR 50: STOP 
'WW COMAHDO C »** 
GOSUB 1280 :CH^-1 :GOTO 510 
'WW COMANDO C *** 

POKE AD,P: PRINT 0896, "CONI IRME (S/N)? ";: M=l: K^ 
912: GOSUB 2350: IF R*="N" THEN PRINT 0396, STRINGS 
20, 32): GOTO 130 ELSE IF R*0"S" THEN 280 ELSI GOTO 
40 

'*»* COMANDO F *** 
GOSUB 860: GOTO 130 
'*** COMANDO G *** 
GOSUB 2140: CO'O 130 

IC=-1: GOTO 510 '»** DECREMENTA CURSOR 
rC=l : GOTO 510 '*** INCREMENTA CURSOR 
IC=64: GOTO 510 '*** LINE FEED 
'»»» COMANDO L »** 
GOSUB 1680 :GOTO 530 

IC=(AO OR *H003F)+1-A0: GOTO 510 '*** RETURN 
'WW COMANDO N **« 

LN=NP*14+INT((A0-15360)/64)+l: PRINT 0896, "LINHA"; 
LN;" PAGINA";NP+1: FOR 1=1 TO 500: NEXT I: PRINT 
896, STRINGS 24,32): GOTO 510 
'WW COMANDO *»* 
GOSUB 1030: GOTO 130 
'WW COMANDO P *** 
GOSUB 580: GOSUB 780: GOTO 130 
'Hi COMANDO U #** 
GOSUB 1470: GOTO 510 

IC=(AD-1 AND &HFFFB)-AD: GOTO 510 '*** TABULA PARA 
TRAS 

IC = (AD OR &H0007H1-AD: GOTO 510 '«W TABULA PARA 
A FRENTE 
POKE AD,P: GOTO 130 '*** HOME 



500 IC=-64 'WW SOBE CURSOR 

510 POKE AD,P: AD=AD+IC 'RESTAURA CARACTERE ANTIGO 

520 IF AD>16255 THEN A0=A0-896 ELSE IF A0( 15360 THEN AD 

=AD+896 'WW TESTA SE CURSOR ESTA' FORA DA TELA 
530 P=PEEK(AD>: POKE AD,CR 'COLOCA CURSOR NA NOVA POS 

ICAO 
540 GOTO 140 
550 ' 

560 'Mm ROTINAS DE EXECUCAO DE COMANDOS ***** 
570 '«» ATUALIZA PAGINA, NUMERO DA PAGINA E TOTAL DE LI 

NHAS *• 
580 POKE AD,P: PRINT 0896,"NUMERO DE PAGINAS'' ";: TH=5: 
K=915: GOSUB 2350: IF R$ = "" THEN Pl = i ELSE P1=VAL< 

Rt) 
590 IF NOT CH THEN 690 'SE NAO HOUVE MODIFICACAO DA TF 

LA SALTE 
600 '** ATUALIZA A PAGINA ** 
610 FOR 1=0 TO 13 

620 '** MODIFICA ENDERECO INIC1AL DO STRING DE ST$ ** 
630 POKE VARPTR(ST*)+2,60+INT( 1/4) 'BYTE +SIG. DO ENDE 

RECO DO PRIMEIRO CARACTERE DA LINHA I 
640 POKE VARPTR(ST$)+1,(I AND 3 )«64 'BYTE -SIG. DO ENDE 

RECO DO PRIMEIRO CARACTERE DA LINHA 1 
650 '»» ATRIBUI A LINHA I DA TELA V A TX*(NF*14+I) IW 
660 TXt(NP»14+I)=STt 
670 NEXT I 
680 CH=0 '** PAGINA ATUALIZADA ( SEM MODIFICACOES PENDEN 

TES) 
690 IF TL<(NP+1)»14 THEN TL=(NP+1>*14 
700 FOR I = TL TO 1 STEP -1: IF TXt( 1-1 ) = STRING*( 64," ") 

OR TX*(I-1)="" OR TX*(I-1> = " " THEN ELSE GOTO 720 
710 NEXT I 

720 TL=I 'MM TL=ULTIMA LINHA DO TEXTO 
730 NP=NP+P1 

740 IF NP<0 THEN NP-0 ELSE IF NP)PG-1 THEN NP=PG-1 
750 RETURN 
760 ' 

770 '*** DISPLAY PAGINA *** 
780 CLS 

790 FOR 1=0 TO 13 
800 IF LEN(TX*(NP*14 + I)) = 64 THEN PRINT TX$( NP«14+I >; EL 

SE PRINT TX*(NP»14 + I ) 
810 IF C$ = "" THEN C*=INKEY$ 
820 NEXT I 
830 RETURN 
840 ' 

850 '*** GRAVA ARQUIVO *** 
860 POKE AD,P: P1=0: GOSUB 590: PRINT 0896, "ARQUIVO DE 

SAIDA?"; 
870 TM=25: K=914: GOSUB 2350 
880 IF R$="" THEN 970 
890 IF R$<>"=" THEN AR$=R$ 
900 ON ERROR GOTO 980 
910 OPEN "0",1,AR$ 'G 
920 FOR 1=0 TO TL-1 'R 
930 PRINT H1,TX*<I) 'A 
940 NEXT I '\J 

950 CLOSE 'A 

960 ON ERROR GOTO 

970 PRINT 0896, STRING$< 63,32): RETURN 
980 PRINT 8896, "ERRO CODIGO H";ERR;"NA LINHA" ;ERL;STRIN 

G$( 64,32); 
990 FOR 1=1 TO 1000: NEXT I 
1000 RESUME 960 
1010 ' 

1020 'WW LE ARQUIVO *** 
1030 POKE AD,P: PRINT 0896, "ARQUIVO DE ENTRADA'":: TM=25 

: K=916: GOSUB 2350 
1040 IF R* = "" THEN PRINT 0896, STRING** 20,32 ); : GOTO 130 
1050 IF R$<>"=" THEN AR*=R« 
1060 ON ERROR GOTO 1220 
1070 OPEN "I",1,AR$ 



1080 
1090 
1100 
1110 
1120 

1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 

1230 
1240 
1250 
1260 
1270 
1230 

1290 

1300 
1310 

1320 
1330 
1340 
1350 
1360 
1570 
13B0 
1390 
1400 
1410 
1420 
1430 
1440 
14 50 
1460 
1470 



1480 



1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 

1570 
1580 



CLS: NP=0 

1=0 

IF EOF(l) THEN 1150 

LINE INPUT H1,TX$(I) 

IF LEN(TX$(I))>64 THEN PRINT "LINHA"? 1+1 J "I 01 TRUNC 

ADA": TX$<I)=LEFT$(TX»( I), 64) 

1 = 1 + 1 

GOTO 1100 

FOR J=I TO TL 

TX*< J>="" 

NEXT J 

TL = I 

CLOSE: GOSUB 780 

ON ERROR GOTO 

RETURN 

PRINT 0896,"LK'RO CODIGU H";i.RR; "NA LINHA' jERLjSTRIN 

Gtt 64,32); 

FOR 1=0 TO 1000: NEXT I 

PRINT 0369, srRIHG$< 64,32) 

RESUME 1200 

'*** INSERL N CARACTERLS, DELETA H CAKACTLRES *»* 

PA=(AD OR &H003F): PRINT 0896 , "NUMERO DE CARACTERES 

?";: TN=3: K=918: GOSUB 2350: IF f<i="" THEN R$ = "l" 

N=VAL(R$): CF H<0 THEN N=-N: GOTO 1370 ELSt IF N^O 

THEN 1440 ELSE 1! AD+N>PA THEN N=PA-AD+1 

POKE AD,P 'WW RESTAURA CARACTERE 

FOR I=PA TO AD+N STOP -1 'MOVE UM DLOCO K CAKACTER 

POKE I,PEEK(I-H) 'N COLUHAS PARA A FRENTE 

NEXT I 

FOR I -AD+N- 1 TO AD STEP -1 

POKE 1,32 'APAGA N CARACTERES DEP0I3 DO CURSOR 

NEXT 1: P-32: COTO 1440 

TOR I=AD+N TO PA 'MOVE UM BLOCO DE CARACTERES 

POKE 1-N,PEEK(1) 'N COLUNAS PARA TRAS 

HEX i I 

FOR I*PA-N+1 TO PA 

POKE 1,32 APAGA N CARACTERES NO F1M DA LINHA 

NEXT I 

i K(AD) 'SALVA CARACTERE 'SUB' CURSOR 

PRINT 0396,STRtNGi( 50," ");: RETURN 

'*** IMPRIME TEXTO *** 

POKE AD,P: PRINT 8896,"TABULACA0 'A ESOUEROA'";: TM 
=3: K=919: COSUB 2350: N"VAL(R$): If N>1.32 THEN PRI 
NT 0919," ": GOTO 1470 

PRINT 0896,"NUMERO DE LINHAS POR FOLHA?";: TM--2: l( = 
924: GOSUB 2550: NL=VAL(RS): IF N>83 THEN PRINT 092 
4," ": GOTO 1480 
PRINT 0896,"POS1CIONE PAPEL 
PRINT "DIGIlt (ENTER) PARA CONTINUAR"; 
C$=INKEY$ 

IF C$OCHR$( 13) THEN 1510 
POKE 16425,1: GOSUB 1620 
PRINT 0896, STRING*! 127," "); 
FOR 1=0 TO TL-1 

IF LEN(TX$(I))>2 THEN IF LEFT*( TX$( I ),3 )-"///" THEN 
LPRINT CHR*(12);: GOSUB 1620: GOTO 1590 
LPRINT TAB<N);TX*(I ) 
IF PEEK( 16425 )>NL THEN LPRINT CHR$(12);: GOSUB 1620 



¥*** 



##** 



1590 NEXT I 

1600 RETURN 

1610 '*** CABECALHO «** 

1620 '**»»* COLOGUE NESTAS TRES LINHAS 

« 
1630 '***** SEU 

* 
1640 '***** CABECALHO ***« 

x 
1650 RETURN 
1660 ' 

1670 '«** INSERE N LINHAS, DELETA -N LINHAS *** 
1680 POKE AD.P: PRINT 8896, "NUMERO DE LINHAS?";: TM=4: K 

=914: GOSUB 2350: IF R*="" THEN R$="l" 



1690 N=VAL(Rt): IF N<1 THEN N--N: GOTO 1910 

1700 P1=0: GOSUB 590 

1710 NL=(AD-15360)/64+NP#14: TL=TL+N: IF TDLH THEN 1890 

1720 IF NL)=TL-N THEN 1880 

1730 POKE VARPTR(PX),PEEK(VARPTR(P1«)+1) 

1740 POKE VARPTR(PX)+l,PEEK(VARPTR(Pl«)+2) 

1750 DEF USRO=PX: PZ = VARPTR( PY ) 

1760 PY=VARPTR(TX*(TL-l))+2 

1770 POKE PX+1,PEEK(PZ) 

1780 POKE PX+2,PEEK(PZ+1) 

1790 PY=VARPTR(TX$(TL-N-l>)+2 

1800 POKE PX+4,PEEK(PZ) 

1810 POKE PX+5,PEEK(PZ+1) 

1820 PY=(TL-N-NL)»3 

1830 POKE PX+7,PEEK(PZ) 

1840 POKE PX+8,PEEK<PZ+1): PX-USRO(O) 

1850 FOR I=NL TO NL+N-1 'APAGA N LINHAS A PARTIR DA 

1860 TX»(I)="" 'LINHA ATUAl 

1870 NEXT I 

1880 GOTO 780 'MOSTRA A NOVA PAGINA L RETORNA 

1890 PRINT 0896, "LINHAS EM EXCESSO "; 

1900 FOR 1 = 1 TO 500: NEXT I: PRINT 8896, STRINGS 20,32 ): 

TL=TL-N: RETURN 
1910 P1=0: GOSUB 590 

1920 NL-(AD-15360)/64+HP*14 'MOVE N LINHAS PARA TRAS 
1930 IF TL=NL+N THEN 2070 ELSE IF TL<NL+N THEN TL-TL+N: 

GOSUB 1890: GOTO 2110 
1940 POKE VARPTR(PX),PEEK(VARPTR(P2i)+l) 
1950 POKE VARPTR(PX)+1,PEEK(VARPTR(P2$)*2) 
1960 DEF USRO=PX: PZ=VARPTR( PY ) 
1970 PY=VARPTR(TX$(ND) 
1980 POKE PX+1,PEEK(PZ) 
1990 POKE PX+2,PEEK(PZ+1 ) 
2000 PY;VARPTR(TX$(NL+N)> 
2010 POKE PX+4,PEEK(PZ) 
2020 POKE PX+5,PEEK(PZ+1) 
2030 PY=(TL-NL-N)*3 
2040 POKE PX+7,PEEK(PZ) 
2050 POKE PX+8,PEEK(PZ+1 ) 
2060 PX=USRO(0) 

2070 FOR I=TL-N TO TL-1 'APAGA H LINHAS DO FINAL DO 
2080 TX$( I )="" 'TEXTO 
2090 NEXT I 
2100 TL=TL-N 

2110 GOTO 780 'MOSTRA A NOVA PAGINA E RETORNA 
2120 ' 

2130 '*** GRAVA TEXTO COMPACTADO NO ARQUIVO **» 
2140 POKE AD,P: P1=0: GOSUB 590: PRINT 0396, "ARQUIVO DE 

SAIDA?"; 
2150 TM=25: K--914: GOSUB 2350 
2160 IF R$="" THEN 2290 
2170 IF R*<>"=" THEN ARi=R* 
2180 ON ERROR GOTO 2300 
2190 OPEN "0",1,AR* 
2200 FOR 1=0 TO TL-1 

2210 IF LEN(TX*(I))=0 THEN J=0: GOTO 2250 
2220 FOR J=LEN(TX$U>) TO 1 STEP -1 'J=ULTIMO CARACT 

ERE 
2230 IF MID$(TX$<I),J,1)<>" " THEN 2250 'DIF. " " DA LIN 

HA 
2240 NEXT J 

2250 PRINT ttl,LEFT$(TX$(I),J) 
2260 NEXT I 
2270 CLOSE 
?280 ON ERROR GOTO 

2290 PRINT 0896, STRING$( 64,32);: RETURN 
?300 PRINT 0896, "ERRO CODIGO H";ERR;"NA LINHA";ERL;STRIN 

Gi( 64,32); 
!310 FOR 1=1 TO 1000: NEXT I 
!320 RESUME 2280 
'330 ' 

340 '*** ROTINA DE LEITURA DE TECLADO WW 
350 R$ = "": PRINT 0K ,CHR$( CR ); : J=0 
360 C$=INKEY$: IF C$="" THEN 2360 



14 



MICRO SISTEMAS. abril/84 



MICRO SISTEMAS, abril/84 



15 



Jogue fora a caneta e o papel, sente-se em frente ao seu micro da linha Sinclair, cadastre 
suas mensa/idades e saiba todo mis a quantas and am suas financas 



Controle as despesas 



Quantas vezes voce 
ja se sentou, pe- 
gou aquele livri- 
nho de anotacSes, 
bloco, folha, enfim, um pa- 
pel qualquer para ali escre- 
ver suas despesas do mes? 
E, depois disso, ficou horas 
somando para chegar ao to- 
tal dessas despesas (e, diga- 
se de passage m, sempre de- 
sejando que esse total fosse 
pequeno)? Ai voce comeca 
a separar as que vencem 
dia 5, 10, 15 etc. Depois, 
comeca a pensar como sera 
o mes que vem, ou daqui a 
seis meses: quantas daquelas 
mensalidades voce ainda te- 
ra que pagar? Enfim, esse 
ritual (apesar de doloroso) 
faz-se necessdrio quando nao 
temos um numero de despe- 
sas suficientemente pequeno 
para lembrar de cabeca to- 
dos os seus detalhes. 

Pois bem, este programa 
mensal e" um exemplo de 
aplicacao para esse fim. Ele 
vai cadastrar suas nensalida- 
des (valor, vencisiento, nu- 
mero de prestacoes etc.), 
fornecendo um perfeito con- 
trole de suas despesas. Veja- 
mos entao como isso funcio- 
na. 



no micro 



Jose Rafael Sommerfeld 



cOdigo 


NOME 


VCTO 


VALOR 


REPET 


1 

2 


AUTOMOVEL 
ALIMENT AgAO 


20 

30 


100000 
50000 


24 
99 


Figura I 


CODIGO 


DESCRICAO 


VCTO 


VALOR 


REP 


1 
2 
3 


Prestacao X 
Prestacao Y 
Prestacao Z 


18 

15 
5 


10.000 
20.000 
30.000 


6 

6 
6 



Figura 2 

Para operar o programa, 
e preciso que se compreenda 
a formacao de seus registros. 
Sao admitidas ate 1 50 mensa- 
lidades cadastradas, sendo 
cada uma delas composta 
de: 

• CODIGO - numero de 1 
a 100. Fica a criterio do 
usuario estipular o numero 
de cada mensalidade; 

• NOME - descricao da 
mensalidade, com ate 15 di- 
ttos; 

• VENC1MENTO - nu- 
mero de 1 a 31; 

• VALOR - numero de 1 
a 999.999; 

• REPETIC6ES - numero 
de 1 a 98 ou 99. £ o nume- 
ro de vezes que a mensalida- 



de se repete. Quando este 
numero for igual a 99, 
isto significa que a mensa- 
lidade e permanente. 

Observemos o exemplo 
da figura 1 . No registro nu- 
mero 1 , cadastramos a men- 
salidade re fe rente a compra 
de um automovel que vence 
no dia 20, no valor de 
Cr$ 100 mil e que sera 
paga em 24 vezes. Ja no nu- 
mero 2, cadastramos ALI- 
MENTA^AO como sendo 
uma mensalidade fixa, devi- 
do ao numero de repeticOes 
ser igual a 99. 

A diferenca entre uma e 
outra e" que, na rotina de 
BAIXA do programa, po- 
demos baixar a primeira at6 
seu numero ser igual a 



(quando sera automatica- 
mente excluida do arquivo); 
ja a segunda so podera ser 
excluida do arquivo atraves 
da totina de EXCLUSAO. 
Assim, quando se fizer ne- 
cessario mudar o valor de 
ALIMENTA£AO, iremos al- 
tera -la atraves da rotina de 
ALTERA £AO, que permite 
mudar o valor da mensalida- 
de desejada. 

COMO FUNCIONAM 
AS ROTINAS 

• INICIAL - Esta rotina i 
a primeira a ser executada 
pelo programa. Nela devem 
ser informados o dia, mes e 
ano da consulta ou atualiza- 
cao, bem como o rendimen- 
to do mes. 

• MENU - £ a segunda ro- 
tina executada pelo progra- 
ma. Nela e" solicitada a fun- 
cao desejada. Para isso, bas- 
ta escolher e pressionar a 
tecla correspondente. 

• FIM - Esta e a ultima 
que deve ser solicitada pelo 
usuario, pois e ela que gra- 
va em fita os dados gerados. 
Quando uma nova utilizacao 
do programa for necessaria, 



deve-se entao ler a ultima 
gravacao efetuada. 

• INICIALIZACAO - Esta 
rotina £ usada apenas uma 
vez no inicio da utilizacao 
do programa. £ ela que di- 
mensiona as variaveis para 
acumulo dos dados. ATEN- 
£AO: use esta rotina somen- 
te uma vez; apos isso, in- 
clua seus dados e grave em 
fita. Ao ler novamente na"o e 
necessario executa-la mais, 
pois se o fizer, as variaveis 
serfo todas zeradas. Se dese- 
jar, como medida de segu- 
ranca, apos utilizi-la elimi- 
ne as linhas 101 a 107 do 
programa, pois as variaveis 
ja estarao dirhensionadas em 
memoria. Ainda sobre as va- 
riaveis, deve-se lembrar que 
um comando RUN para exe- 
cucao do programa tambem 
causaria uma perda de infor- 
macoes. Porisso, quando for 
executa-lo, ao inves deste 
comando, utilize GOTOl . 

• INCLUSAO - Permite 
incluir a mensalidade. 

• ALTERACAO - Esta 
rotina permite alterar o va- 
lor da mensalidade. Sua uti- 



lizacao 6 de grande valia 
nos casos das mensalidades 
permanentes. 

• EXCLUSAO - Permite a 
exclusao da mensalidade. 

• BAIXA — Esta rotina de- 
ve ser utilizada sempre que 
algum pagamento forefetua- 
do, informando-se o nume- 
ro de mensalidades pagas. 

• LISTAGEM GERAL - 

Permite visualizar todas as 
mensalidades cadastradas, 
com seu respectivo total. 

• LISTAGEM POR PERIO- 

DO - Nesta rotina serfo so- 
licitados os dias inicial e fi- 
nal do perfodo. Ela listara 
todas as mensalidades que 
vencem naquele perfodo. 
Por exemplo: inicio = 15 e 
fim = 25 proporcionari a 
listagem das mensalidades 
que vencam do dia 15 ao 
25 naquele mes. 

• ANALISE PERCEN- 
TUAL - Esta rotina nos 
fornece, a partir do codigo 
da mensalidade, sua descri- 
cao, vencimento, valor e 
percentual que aquela men- 



salidade representa sobre 
nossa renda no mes. 

• PROJE^AO - Esta roti- 
na nos fornece uma posicao 
anted pa da de nossas mensa- 
lidades n meses a frente. De- 
vem- se informar os dias ini- 
cial e final do perfodo em 
que se deseja a projecao, 
bem como o numero de me- 
ses da projecao. Vejamos 
como isso ocorre. 

Suponhamos que seja dia 
15.09.83 e desejamos saber 
quais mensalidades teremos 
que pagar de 10 a 20.03.84. 
Informemos, entao: dia 
inicial =10; dia final = 20; 
n° de meses = 6. Observe 
que o programa, para efetuar 
esta rotina, se baseia em 
que todas as mensalidades 
estejam em dia. Outra consi- 
deracao importante 6 que 
varias mensalidades, com o 
mesmo numero de repeti- 
coes, podem estar em situa- 
cdes diferentes. 

Vamos agora observar a 
figura 2. No caso da mensa- 
lidade 1, ela nao aparecera 
na projecao, pois o progra- 
ma supoe que em 18.09.83 



haverd mais um pagamento, 
isto por ser o dia de seu 
vencimento maior do que o 
dia da consulta (15.09.83). 
A mensalidade 2 apareceria 
na projecao, pois supoe -se 
que ela ja foi paga e seu 
vencimento se enquadra no 
perfodo solicitado. A men- 
salidade 3 ja nao apareceria, 
por ser seu vencimento no 
dia 5, na"o atendendo, assim, 
ao perfodo solicitado (de 
10 a 20). 

ALGUMAS DICAS 

Nas rotinas de INCLU- 
SAO, ALTERACAO, EX- 
CLUSAO, BAIXA e ANA 
LISE PERCENTUAL se, 

ao inv6s de digitarmos o 
codigo, digitarmos 0, o 
programa voltara a apre- 
sentar o MENU. 

Quase todos os campos 
digitados sofrem uma cri- 
tica para validacao, porem 
nem todos tern uma mensa- 
gem de erro correspondente, 
ficando o computador a es- 
pera da redigitaca"o da infor- 
macfo, caso exista erro. Pa- 



llll KSR BI-DIRECI0NAL III 

O unico terminal teleimpressor fabricado no Brasil. 

A ISA, Industria de Impressoras S/A. acaba de lanpar o 

primeiro teleimpressor genuinamente brasileiro. Sua alta 

tecnologia eletrdnica, prova na pratica sua capacidade 

de trabalho. Imprime por matriz de pontos 9x7, 

permitindo ate 8 cbpias impressas, com uma 

velocidade de 100 C.P.S. Equipado com 

memoria standard de 2 K caracteres, 

utilizando formulario continuo, 

folhas soitas ou bobina de papel. 

De 64 ate 132 caracteres por 

linha, com interlace serial ^^ 

RS 232 elo de corrente e 

paralelo. Sua velocidade 

de comunicacao e de ^ 

50 a 9.600 B.P.S. 

8 diferentes 

tipos de 

impressao. 

Conhepa mais 

detalhes do 

^ ^ Teleimpressor 

^^ KSRna 




INDUSTRIA DE IMPRESSORAS S.A. 

EscntO'io 

R Prol Jose Marques da Cruz. 234 

Fabrica. 

Rua Centro Alricana. 74 

Tels. (011)2402442 543 4939 

Tele<:(0ll)36926IIIMBR 

Sao Paulo S.P 



©ECODATA 
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Brasilia SCS 02 Bloco C n. 41 SL. 01 Tel. (061) 225 1588 Telex (061) 1750 

Porto Alegre Rua Sanla Terezinha. 300 Tel.:(051)32 3564 Telex (051)2144 

Goiania Belo Honzonte Salvador 
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CONTROLE AS DESPESAS NO MICRO 





CAMPO 


ROTINA(S) 


EXIGENCIA(S) 




Dia 


Inicial 


maior que e menor que 32 




Mes 


Inicial 


maior que e menor que 13 




Ano 


Inicial 


menor que 100 




Funcao 


Menu 


igual ou maior que e me 
nor que 10 




Codigo 


Inclusao, 
Alteracao, 
Exclusao, baixa 
e Analise Perc. 


menor que o limite maximo 
de mensalidades 




Vencimento 


Inclusao 


maior que e menor que 32 




Valor 
Novo Valor 


Inclusao 
Alteracao 


maior que e menor que 
1.000.000 




Repeticoes 


Inclusao 


maior que e menor que 100 




Conf irmacao 


Inclusao, 
Alterajao, 
Exclusao, baixa 
e Projecao 


igual a S ou N 




Inlcio de Perlodo 


Listagem P/ Perlodo 
Projecao 


maior que e menor que 31 




Fim de Perlodo 


List. P/Perlodo 
Projecao 


maior que e menor que 31 




Numero de meses Projecao 


maior que e menor que 100 






Figura 3 

ra evitar isso, observe a fi- 
gura 3, que cont£m as exi- 
gencias de cada campo que 
1 1 So possui mensagem de 
erro. 

£ importante voce saber 



que quando o CODIGO for 
uma inclusSo e houver uma 
mensagem do tipo CODIGO 
IN VA LIDO, isso representa 
que aquele codigo ja existe 
no arquivo. Nas demais roti- 






nas representa que nSo exis- 
te. 

Para aqueles que prefe- 
rem subdividir suas mensali- 
dades em detalhes, aumen- 
tando assim em demasia seu 



numero para controle, ai vai 
uma dica para aumentar a 
capacidade de mensalidades 
cadastradas. Basta alterar as 
linhas 102, 103, 104, 105, 
106, 612, 730, 815, 956 e 
1030, colocando, onde esti- 
ver escrito 50, o numero - 
limite desejado, obedecendo 
ao maximo de 200. Se vo- 
ce nSo tiver necessidade de 
utilizar mais que 50, entSo 
nSo faca esse tipo de altera- 
cSo, pois ela ocupara mais 
memoria, aumentando seu 
tempo perdido em consul- 
tas, gravacoes e leituras. 

Finalmente, e bom voce 
saber tambe"m que este pro- 
grama opera em slow. 



Jose" Rafael Sommerfeld trabalha 
ha" tris anos com programacao 
de microcomputadores. utilizan- 
do as linguagens Assembler, BA- 
SIC. COBOL e LTD. Atualmen- 
te trabalha no I BAM — Instituto 
Brasileiro de AdministracSo Mu- 
nicipal e 6 socio da SOFT RE- 
SEARCH Informdtica, em Nite- 
rdi-RJ. 



Controle Mensal 



1 REM PROGRAMA MENSAL 

2 REM JOSE RAFAEL SOMMERFELD 

3 REM CAIXA POSTAL 1709 

4 REM CEP 24120 NITEROI 

5 REM 

6 GOSUB 1600 

7 IF FL=1 THEN GOTO 1 

10 CLS 

11 FAST 

12 FOR X=0 TO 63 

13 PLOT X,0 

14 PLOT X,43 

15 NEXT X 

16 PRINT AT 1,4; "CONTROLE DE M 
ENSALIDADES" 

17 PRINT AT 5,8; "0 - FIM" 

18 PRINT TAB 8;"1 - INICIALIZA 
CAO" 

19 PRINT TAB 8; "2 - INCLUSAO" 

20 PRINT TAB 8; "3 - ALTERACAO" 

21 PRINT TAB 8; "4 - EXCLUSAO" 

22 PRINT TAB 8; "5 - BAIXA" 

23 PRINT TAB 8; "6 - LISTAGEM G 
ERAL" 

24 PRINT TAB 8; "7 - LISTAGEM P 
/PERIODO" 

25 PRINT TAB 8; "8 - ANALISE PE 
RCENTUAL" 

26 PRINT TAB 8; "9 - PROJECAO" 

27 PRINT AT 18,4;"TECLE A FUNC 
AO DESEJADA" 

28 PRINT TAB 4;" 



35 GOTO F*100 

50 CLS 

53 PRINT AT 3,10 

56 PRINT AT 5,5;' 
VADOR" 

59 PAUSE 120 

62 PRINT AT 7,1; 
ONTO TECLE ""P"""' 

65 IF INKEY$o"P 

80 SAVE "MENSAL" 

85 CLS 

90 GOTO 1 

100 CLS 

101 PRINT AT 11,4 
O VARIAVEIS" 

102 DIM C(50) 

103 DIM D$(50,15) 

104 DIM V(50) 

105 DIM A(50) 

106 DIM R(50) 

107 PAUSE 120 

108 GOTO 10 
200 CLS 

203 PRINT AT 1,10 

206 GOSUB 1000 

207 IF FL=1 THEN 
209 PRINT AT 7,5; 
212 INPUT N$ 

215 IF LEN N$<=15 

218 PRINT AT 21,0 

RANDE . . . ABREVIE" 

221 PAUSE 120 

222 PRINT AT 21,0 



"F I M" 
PREPARE O GRA 



SE ESTIVER PR 
THEN GOTO 65 



"INICIALIZAND 



; "INCLUSAO" 

GOTO 10 

"NOME : " 

THEN GOTO 230 
;"NOME MUITO G 



29 SLOW 

30 LET F$=INKEY$ 

31 IF F$<"0" OR F$>"9" THEN GO 
TO 30 

32 LET F=VAL F$ 

34 IF F=0 THEN GOTO 50 



224 GOTO 212 

230 PRINT AT 7,17;N$ 

2 33 PRINT AT 9 , 5 ; "VENCIMENTO: 



236 INPUT VE 



2 39 IF VE<=0 OR VE>31 THEN GOTO 

236 

242 PRINT VE 

245 PRINT AT 11,5; "VALOR ... : 

248 INPUT VA 

251 IF VA>999999 OR VA<=0 THEN 
GOTO 248 
254 PRINT VA 
257 PRINT AT 13,5; "REPETICOES: 

260 INPUT RE 

263 IF RE<=0 OR RE>99 THEN GOTO 
260 

266 PRINT RE 
269 GOSUB 1100 
272 IF C$="S" THEN GOTO 280 
275 GOTO 200 
280 LET C(CD)=1 
283 LET D$(CD)=N$ 
286 LET V(CD)=VE 
2 89 LET A(CD)=VA 
292 LET R(CD)=RE 

295 PRINT AT 21,0; "OK ... INCLU 
IDO" 

29 8 PAUSE 120 

299 GOTO 200 

300 CLS 

30 3 PRINT AT 1 ,10 ; "ALTERACAO" 

306 GOSUB 1000 

307 IF FL=1 THEN GOTO 10 

309 PRINT AT 7,5; "NOME : " 

;D$(CD) 

312 PRINT AT 9,5; "VALOR ... : " 
;A(CD) 

315 PRINT AT 11,5; "NOVO VALOR: 

318 INPUT VA 

321 IF VA<=0 OR VA>999999 THEN 



GOTO 


318 


324 


PRINT VA 


327 


GOSUB 1100 


330 


IF C$="S" THEN GOTO 336 


333 


GOTO 300 


336 


LET A (CD) =VA 


339 


PRINT AT 21,0; "OK ... ALTER 


ADO" 




342 


PAUSE 120 


345 


GOTO 300 


400 


CLS 


403 


PRINT AT 1,10; "EXCLUSAO" 


406 


GOSUB 1000 


407 


IF FL=1 THEN GOTO 10 


409 


PRINT AT 7,5; "NOME : " 


;D$(CD) 


412 


GOSUB 1100 


415 


IF C$="S" THEN GOTO 421 


418 


GOTO 400 


421 


GOSUB 1.200 


424 


PRINT AT 21,0; "OK ... EXCLU 


IDO" 




427 


PAUSE 120 


430 


GOTO 400 


500 


CLS 


503 


PRINT AT 1,10; "BAIXA" 


506 


GOSUB 1000 


507 


IF FL=1 THEN GOTO 10 


509 


PRINT AT 7,5; "NOME : H 


;D$(CD) 


512 


IF R(CD)<>99 THEN GOTO 524 


515 


PRINT AT 21,0;"MENSALIDADE 


PERMANENTE" 


518 


PAUSE 120 


521 


GOTO 500 


524 


PRINT AT 9,5; "NUMERO ... : " 


'527 


INPUT N 


530 


IF N<=R(CD) THEN GOTO 542 


533 


PRINT AT 21,0; "NUMERO > QUE 


NUMERO CADASTRADO" 


536 


PAUSE 120 


539 


GOTO 500 


542 


PRINT N 


545 


GOSUB 1100 


548 


IF C?="S" THEN GOTO 554 


551 


GOTO 500 


554 
557 


LET R(CD)=R(CD)-N 

IF R(CD)>0 THEN GOTO 580 



560 GOSUB 1200 

56 3 PRINT AT 21,0 ; "MENSALI DADE 
FOI EXCLUIDA" 

566 GOTO 583 

580 PRINT AT 21,0; "OK ... BAIXA 
DO" 

583 PAUSE 120 

586 GOTO 500 

600 GOSUB 690 

608 GOSUB 1300 

610 LET TV=0 

611 LET L=0 

612 FOR 1=1 TO 50 

614 IF C(I)=0 THEN GOTO 618 
616 GOSUB 1400 
618 NEXT I 
620 GOTO 1500 

690 CLS 

691 PRINT TAB 9; "LISTAGEM GERAL 

692 PRINT 
69 3 RETURN 

700 LET TV=0 

701 LET L=0 
703 GOSUB 790 

706 PRINT "INICIO : " ; 

709 INPUT IP 

712 IF IP<=0 OR IP>31 THEN GOTO 

709 

715 PRINT IP 

718 PRINT AT 1,24; "FIM : " ; 

721 INPUT FP 

724 IF FP<=0 OR FP>31 THEN GOTO 

721 

727 PRINT FP 

728 GOSUB 1300 
730 FOR 1=1 TO 50 



733 IF C(I)=0 OR V(I)<IP OR V(I 
)>FP THEN GOTO 739 
736 GOSUB 1400 
739 NEXT I 
742 GOTO 1500 

790 CLS 

791 PRINT TAB 7; "LISTAGEM P/PER 
IODO" 

792 IF TV=0 THEN RETURN 

793 PRINT "INICIO : ";IP;TAB 24 
;"FIM : ";FP 

794 RETURN 
800 CLS 

803 PRINT AT 1,7; "ANALISE PERCE 
NT UAL" 

806 PRINT AT 5,1; "INFORME O COD 
IGO DA MENSALIDADE" 

809 INPUT CD 

812 IF CD<=0 THEN GOTO 10 

815 IF CD>50 THEN GOTO 809 

818 IF C(CD)=0 THEN GOTO 809 

821 PRINT AT 8, 4 ; "DESCRICAO : " 
;D$(CD) 

824 PRINT AT 10 , 4 ; "VENCIMENTO : 
";V(CD) 

827 PRINT AT 12, 4; "VALOR 
";A(CD) 

830 PRINT AT 15 ,1 ; "PE RCENTUAL S 
/RENDA = "; (A(CD)*100)/RD;"a/C" 

833 PRINT AT 20,0; "TECLE ""0"" 
P/OUTRA OU" 

836 PRINT TAB 6;"""F"" P/FINALI 
ZAR" 

839 LET C$=INKEY$ 

842 IF C$="0" THEN GOTO 800 

845 IF C$="F" THEN GOTO 10 

848 GOTO 839 

900 CLS 

901 LET D=ID 

902 LET M=IM 

903 LET AN=IA 

904 PRINT AT 1 , 6; "PROJECAO DE D 
ESPESAS" 

905 PRINT AT 4 , 12 ; "INFORME :" 

906 PRINT AT 6, 3; "DIA INICIAL D 
O PERIODO : "; 

908 INPUT IP 

910 IF IP<=0 OR IP>31 THEN GOTO 

908 

912 PRINT IP 

914 PRINT AT 8,3; "DIA FINAL DO 
PERIODO . : "; 

916 INPUT FP 

918 IF FP<=0 OR FP>31 THEN GOTO 

916 

920 PRINT FP 

922 PRINT AT 10, 3; "NUMERO DE ME 
SES : 

924 INPUT N 

926 IF N>99 OR N<=0 THEN GOTO 9 
24 

928 PRINT N 

930 GOSUB 1100 

932 IF C$="N" THEN GOTO 900 

934 LET M=M+N 

936 IF M<13 THEN GOTO 948 

938 FOR X=l TO 8 

940 LET M=M-12 

942 LET AN=AN+1 

944 IF M<=12 THEN LET X=8 

946 NEXT X 

948 GOSUB 990 

950 GOSUB 1300 

952 LET TV=0 

954 LET L=0 

956 FOR 1=1 TO 50 

958 IF C(I)=0 OR V(I)<IP OR V(I 
)>FP OR R(I)<N OR V(I)>ID AND R( 
I)=N THEN GOTO 962 

960 GOSUB 1400 

962 NEXT I 

964 GOTO 1500 

990 CLS 

99 2 PRINT TAB 6; "PROJECAO DE DE 
SPESAS" 

994 PRINT TAB 4; "PERIODO DE ";I 



P;" A ";FP;"/";M;"/";AN 

996 RETURN 
1000 PRINT AT 5, 5; "CODIGO . . : " 
1010 INPUT CD 
1015 LET FL=0 

1020 IF CD=0 THEN LET FL=1 
102 5 IF CD=0 THEN RETURN 
10 30 IF CD>50 THEN GOTO 1010 
1040 IF C(CD)=0 AND F=2 OR C(CD) 
=1 AND F>2 THEN GOTO 1070 
1050 PRINT AT 21,0; "CODIGO INVAL 
IDO" 

1060 PAUSE 120 
1063 PRINT AT 21,0;" 

1065 GOTO 1010 

1070 PRINT AT 5,17;CD 

1080 RETURN 

1100 PRINT AT 17,7;"CONFIRMA ? ( 

S/N)" 

1105 LET C$=INKEY$ 

1110 IF C$="N" OR C$="S" THEN RE 

TURN 

1115 GOTQ 1105 

1200 LET C(CD)=0 

1210 LET D$(CD)=" " 

1220 LET V(CD)=0 

1230 LET A(CD)=0 

1240 LET R(CD)=0 

1250 RETURN 

1300 PRINT "COD NOME"; TAB 20;"VC 

VALOR RP" 
1310 PRINT 
1320 RETURN 
1400 LET TV=TV+A(I) 

1405 LET L=L+1 

1406 LET Z$=STR$ A(I) 

1407 LET Z=LEN Z$ 

1410 PRINT " ";I;TAB 4;D$(I);TAB 

20;V(I);TAB 29-Z; A(I) ;TAB 30;R( 
I) 

1415 IF L<15 THEN RETURN 
1420 PRINT AT 19 , 10 ; "SUB-TOTAL = 
> ";TV 

1425 PRINT AT 21,0; "TECLE n "p"" 
PARA PROSSEGUIR" 

1430 IF INKEY$<>"P" THEN GOTO 14 
30 

1435 LET L=0 
1440 GOSUB F*100+90 
1445 GOSUB 1300 
1450 RETURN 

1500 PRINT AT 19,14; "TOTAL => "; 
TV 

1510 PRINT AT 21,0; "TECLE ""F"" 
PARA FINALIZAR" 

1520 IF INKEY$<>"F" THEN GOTO 15 
20 

1530 GOTO 10 
1600 CLS 

1605 PRINT AT 2, 11 ; "INFORME ;" 
1610 PRINT AT 5, 10; "DIA.. : 
1615 INPUT ID 
1620 IF ID<=0 OR ID>31 THEN GOTO 

1615 
1623 PRINT ID 

1625 PRINT AT 7,10; "MES.. : "; 
1630 INPUT IM 
1635 IF IM<=0 OR IM>12 THEN GOTO 

1630 
1638 PRINT IM 

1640 PRINT AT 9,10; "ANO.. : "; 
1645 INPUT IA 
1650 IF IA>99 OR IA<=0 THEN GOTO 

1645 
165 3 PRINT IA 
1655 PRINT AT 12,5; "RENDA MENSAL 

1660 INPUT RD 

1665 PRINT RD 

1670 GOSUB 1100 

1672 LET FL=0 

1675 IF C$="N" THEN LET FL=1 

1680 RETURN . 



m 
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Se para resolver uma equacao voce precisar empregar metodos iterative*, apele 
para o micro: a resposta vira bem mais rapida e com muito maior precisao 




Resolu^ao 
iterativa de 



Neste artigo veremos como apii- 
car processos iterativos para 
resolucab de equacdes com o 
uso de microcomputadores da 
linha Apple. 

Em certos problemas ligados as cien- 
cias exatas, e" comum defrontarmos 
com a necessidade de solucionar uma 
equacao matematica. Muitas vezes, a so- 
lucao destas equacSes pode ser alcanca- 
da com a utilizacab de regras alg£bricas, 
permitindo obter. com relativa facilida- 
de, os valores que satisfazem a equacao 
que pretendemos resolver. 

Em outros casos, entretanto, pode- 
mos nos confrontar com certos proble- 
mas cuja solucao analitica seja absolu- 
tamente impossfvel, e a unica forma de 
chegarmos a um resultado e utilizando 
processos iterativos de aproximacdes 
sucessivas. Em trabalhos como este, 6 
indispensavel o emprego de um compu- 
tador, tanto pela sua velocidade quanto 
pela sua precisfo na solucao de proble- 
mas. 



OS METODOS 



Existem diversos processos de calculo 
numerico auxiliares. Dois deles sab 
bastante comuns: 
a) Met odo da biparticdo 

Por este processo sab encontrados 
dois pontos de tal forma que se tenha 
certeza da existencia de uma raiz entre 
eles. intervalo vai sendo bipartido, is- 
to e, toma-se o ponto m6dio do inter- 
valo entre os dois pontos e verifica-se 
se a raiz ficou a direita ou a esquerda do 
ponto medio. Em funcao disto, um dos 
novos extremos passa a ser o ponto me- 
dio. 



fun^oes 



O processo vai sendo iterativamente 
repetido zt€ o momento em que a raiz e 
esmagada pelos dois pontos extremos. 
Durante o transcorrer do processo, 
e dependendo da precisao desejada, 
podem-se interromper as iterates um 
pouco antes ou um pouco depois. 

Veja um esboco graTico do funciona- 
mento do m6todo da bipartica"o na figu- 
ra 1. Os pontos (d) e (e) vao se aproxi- 
mando cada vez mais da raiz (g), at£ o 
ponto em que a diferenca torna-se tao 
pequena que pode ser desconsiderada. 
b) Met odo de Newton 

Pelo metodo de Newton, deve-se to- 
mar uma aproximacao inicial da raiz. 
Calcula-se o valor da funcao naquele 
ponto e sua derivada neste ponto. De 
posse destas informacoes, calcula-se o 
ponto de intersecSo do eixo das abcissas 
com a reta tangente a funcao no ponto 
definido pela primeira aproximacao. 
processo pode convergir para a raiz e, 
neste caso, esta intersecao representaria 
a segunda aproximacao. Repetindo-se o 
processo por algumas vezes, podera 
chegar-se a uma distancia da raiz tao 
pequena quanto se queira. 

Veja o esboco da figura 2 sobre o me- 
todo de Newton de busca de raizes. 
Tendo-se um ponto (d), podendo calcu- 
lar a equacao da reta tangente a funcao 
neste ponto e sua intersecao com o eixo 
das abcissas, podemos encontrar uma 
segunda aproximacao. 

Dada uma iteracao, a iteracao 
seguinte sera obtida por esta primeira 
iteracao subtraida do quociente entre 
o valor da funcao no ponto e da deriva- 
da da funcao no ponto. Para comprovar, 
tomemos a seguinte nqtacab: 
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• f(x n ) - valor da funcao no ponto 
da iteracSo n 

• f'( x n) _ ^ OT da derivada da fun- 
cao no ponto da iteracao n 

Temos, portanto, da equacao de uma 
reta com coeficiente angular m e que 
passa pelo ponto (xQ.yo): 



y - y n = m 



( x - x, 



que, substituindo para nossa notacao, 
ficara: 

y - f (x n ) = f (x n ) . ( x - x n ) 

Como queremos o ponto onde a reta 
tangente intercepta o eixo das abcissas 
(y = 0), teremos: 



- f (x ) = f '(x J 
n n 



( x - x n ) 



x - x = - f (x ) / f ' (x ) 

n n n 

x = x - f (at }/£' (x J 

E ai esta. A correcab a ser aplicada a 
cada iteracao e o quociente entre a 
funcao no ponto da iteracao pela sua 
derivada neste mesmo ponto. Se a fun- 
cao c^nvergjr, teremos que, a cada ite- 
racao, o valor da intersecao da reta tan- 
gente com o eixo das abcissas estara 
mais proximo do valor real da raiz da 
funcfo. 

METODO DE NEWTON EM BASIC 

programa que aqui trazemos mos- 
tra uma aplicacao do processo de New- 
ton para o calculo numerico de raizes. 
A funcao a ser resolvida deve ser progra- 
mada a partir da linha niimero 5000, de 
forma que, ao retornar ao programa prin- 
cipal, seja colocado, na variavel FX, o 
valor da funcao para o ponto especifica- 
do pela variavel X. 




(b) 












li 


















| 




>^n 










(d) 


(g)\ 


\ 

(c) 





Figura 1 - (a) eixo das abcissas; (b) eixo das ordenadas; (c) grdfico da 
funcao; (d) limite extremo esquerdo da iteracao; (e) limite extremo di- 
reito da iteragdo; (f) ponto medio entre extremos; (g) raiz da Juncdo 



Figura 2- (a) eixo das abcissas; (b) eixo das ordenadas; (c) grdfico da 
Juncdo; (d) primeira aproximacao; (e) reta tangente a funcao para o 
ponto (d); (f) segunda aproximacao; (g) raiz da funcao 



calculo da derivada 6 feito numeri- 
camente. Calcula-se o valor da funcao 
no ponto, da-se um pequeno incremen- 
to no valor da abcissa e, novamente, 
calcula-se o valor da funcao. A derivada 
e calculada a partir da diferenca entre os 
dois resultados. 

programa pede ao usuario que defi- 
na uma aproximacao preliminar para o 
inicio do processo (a precisao desejada 
tambSm podera ser defmida). numero 
a ser introduzido tera por funcao es- 
tabelecer at6 que casa decimal o resulta- 
do estara absolutamente correto. pro- 
cesso podera ser acompanhado ou nab 
(existe a opcao de ver as iteracoes pe- 
las quais transcorre o processo). 

A funcao empregada na demonstra- 
cao e a funcao polinominal de quinto 
grau em x : 



x 5 - 3x 4 + 2x 3 - 3x 2 



- x = - 564 



Uma de suas raizes e — 3. Experimen- 
te usar o processo com a primeira ite- 
racao igual a - 50 e o erro na setima ca- 
sa. Ele acabara convergindo para o valor 
- 3. Experimente partir de 1000 como 
primeira iteracao com erro na quinta 
casa — o processo converge para a raiz. 
£ importante notar que, quando a fun- 
cao tern muitas raizes, a convergencia 
para cada uma delas dependent apenas 
da aproxima5ao inicial utilizada. 

O tempo gasto para encontrar a raiz 
dependera da complexidade da funcao 
defmida a partir da linha 5000. O me- 
todo de Newton e muito mais rapido 
do que o processo da biparti?ao, mas 
tern o inconveniente de, muitas vezes, 
nab convergir para a raiz da equacao. 

Para programar as funcSes que voce 
quiser resolver, lembre-se sempre de 
•iuas coisas: caso as funcoes utilizadas 
lao estejam implementadas na lingua- 



gem BASIC, voce precisara defini-las 
antes de usar o programa; e, se sua fun- 
cao estiver dividida no primeiro e se- 
gundo membros, passe tudo para um 
membro so, deixando zero no outro 
membro. 

Veja, por exemplo, o polinomio de 
quinto grau que esta na listagem. O 
termo - 564 foi transferido com o sinal 
trocado para o primeiro membro, para 
depois dar-se inicio ao processo. O pro- 
grama busca os valores que fa?am o 
valor da variavel FX (valor da funcao 
no ponto) estar cada vez mais proximo 
de zero. 
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Resolugdo iterativa 


de fungoes 




1.8 


REM RESOLUCAO INTERttTIUA DE 




"DIMENSAO DO ERRO : " ; DX 






FUNCOES 


S8 


PRINT :: PRINT ! PRINT "RAIZ D 


28 


TEXT B HONE : NORMAL " SPEED= 




A FUNCAO: " 




255 


98 


G03UB 5888: Fl = FX:X1 ■ X:X = 


38 


PRINT "FUNCROs": PRINT * LIST 




X + DX: G03UB 5888: DE = --FX - 




58 1 8 




Fl> -•• DX: I m 8: IF DE < > 8 


48 


PRINT S PRINT s PRINT "NOSTRA 




THEN I = FX .-■ DE 




R INTERACOES <S^K>? "•*« GET 


1 88 


X ■ XI - I: IF R THEN UTAB 2 




R*l PRINT R*.tR as @s IF R* « 




8: PRINT X? SPC»:; S>: PRINT 




"3" THEN R - 1 


118 


IF ABS -::i> > DX THEN 98 


58 


OTAB 12: INPUT "CHUTE INICIAL 
8 »|X*3K ■■= UAL '::X*>s UTAB 1 


128 


UTAB 28: PRINT "X = ";X: END 




28 PRINT "PRIMEIRA APROXIMAC 


138 


END 




AOs ";:X 


5888 


REM FUNCAO - EMTRA : ' X n SAI 


68 


UTAB 14: INPUT "PRECISAO 




'FX' <X > — > FX> 




; ";X$:I = UAL <X&>i IF I < 


5818 


FX = X -'■ 5 - 3 * X * 4 + 2 * 




1 OR I > 8 THEN 68 




X ■•'• 3 - 3 * X ••'- 2 - X + 564 


78 


DX « 18 -•• - I: UTAB 14 1 PRINT 


5828 


RETURN ■ 
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Se voce tern um CP 500 ou urn DGT, entao nao deixe de ler esse 
artigo e aprenda como quebrar a protecao e recuperar programas em disquete 



O NEWDOS que nao 
estanos manuais 



Renato Degiovani 



Agrande maioria dos usuarios de sistemas com disco 
nao faz uma ideia exata de todas as possibilidades de 
seu equipamento. Esse fato deve ser creditado aos 
pessimos manuais que acompanham os micros. 
Existe hoje, por parte da comunidade de usuarios, algumas 
teorias que tentam explicar o fato de o fabricante omitir infor- 
ma?5es que, em paises mais adiantados, costumam acompa- 
nhar cada equipamento comprado. Nao vamos tratar delas 
aqui, porem vamos introduzir um assunto de extrema impor- 
tancia para os usuarios de sistemas com disco: a estrutura do 
diret6rio do NEWDOS/80, versao 2.0, e como manipular seus 
regjstros. 

NEWDOS, para os que nao o conhecem, e atualmente um 
dos sistemas mais procurados para o CP 500 devido principal- 
mente a grande quantidade de software desenvolvido para ele, 
alem de ser o sistema base dos DGT (o conhecido DIGDOS 
nada mais e" do que a versao do NEWDOS/80 para o TRS mo- 
delo I) densidade dupla, Mas isso nao e" tudo: ele 6 tambem 
um sistema extremamente poderoso na execucao dos coman- 
dos e bastante simples de ser compreendido. 

Portanto, se voce £ proprietdrio de um CP 500 ou um DGT, 
nas versoes disco, procure uma cadeira conforta'vel e ligue o 
seu micro porque vamos ter uma conversa bastante interes- 
sante. 



TRILHAS. GRANULOS, SETORES E OUTROS BICHOS 



Como jd sabemos, o disco e dividido em trilhas. granulos e 
setores. O padrao mais comum de divisao adotado pelo TRS- 
DOS (e por extensao pelo DOS-500) e o seguinte: 
TRS modelo 1 - cada trilha possui 2 granulos e cada granulo 
possui 5 setores. 

TRS modelo III - cada trilha possui 6 granulos e cada granulo 
possui 3 setores. 



O conceito granulo, no entanto, merece uma atencao toda 
especial, pois pode causar uma serie de equi'vocos aos usudrios. 
O manual do DOS-500 nao usa a palavra GRANULO e sim 
BLOCO para expressar a mesma coisa, ou seja: o granulo 6 a 
menor porcao alocavel do disco. Devemos tambem ter em 
mente que um setor possui sempre 256 bytes, nao importando 
o sistema que estivermos utilizando. 

No NEWDOS a divisao tanto para o modelo I quanto para o 
modelo III e* semelhante, ou seja, cada granulo possui 5 seto- 
res. Nesse caso, pordm, nao e utilizado o conceito de trilha e 
sim LUMP, sendo que cada LUMP pode possuir de 2 a 8 gra- 
nulos. Essa aparente confusao e\ na realidade, uma forma po- 
derosa de manipular a organizacao do espaco do disco, uma 
vez que permite ao sistema uma configuracao bastante flexfvel. 
Pode-se mesmo reconfigurar o sistema NEWDOS a "imagem e 
semelhanca" de outro sistema qualquer, permitindo dessa for- 
ma a leitura do sistema pelo pr6prio NEWDOS. 

Para os que ja conhecem o sistema NEWDOS, e' interessan- 
te dar uma olhada no parametro GPL do PDRIVE. 



OS ARQUIVOS DO SISTEMA 



Todo disco de sistema possui uma serie de arquivos que sao 
as rotinas funcionais responsaveis pela execucao dos progra- 
mas ou comandos. Esses arquivos sao reconhecidos pela ex- 
tensao /SYS. 

A figura 1 apresenta todos os arquivos que devem constar 
do disco e a sua funcSo. Se o usudrio necessitar de mais espaco 
em um determinado disco, essa tabela o ajudara - a estabelecer 
quais os arquivos fundamentals que devem ser mantidos no 
disco e quais podem ser eliminados, a fim de se obter mais 
espaco. 

Apenas como regra geral, o disco deve con ter no mi'nimo os 
seguintes arquivos: BOOT, DIR, SYS0, SYS1, SYS2, SYS3 e 



ARQUIVO grAnulos funcAo 



DIR/SYS 2 a 6 

BOOT/SYS 

SYS0/SYS 

SYS 1 /SYS 
SYS2/SYS 

SYS3/SYS 

SYS4/SYS 
SYS5/SYS 
SYS6/SYS 
SYS7/SYS 

SYS8/SYS 

SYS9/SYS 

SYS14/SYS 

SYS15/SYS 

.SYS16/SYS 

SYS17/SYS 



ARQUIVOS DO BASIC DISCO 



BASIC/CMD 
SYS10/SYS 
SYS1 1/SYS 
SYS12/SYS 
SYS13/SYS 
SYS18/SYS 
SYS19/SYS 
SYS20/SYS 
SYS2 1/SYS 



Esse e o diretorio do disco, responsavel por todas as informacoes dos arquivos 
gravados. 

£ o arquivo de inicializacao do sistema, responsavel por carregar o DOS no micro 
e executar os resets. Deve ocupar sempre o is granulo do disco. 

Parte do DOS residente que ocupa a memoria do micro. £ responsavel tambem pelas 
inicializacoes do relogio, das portas I/O e por carregar os outros arquivos do 
sistema. 

Checa a validade dos comandos do DOS. 

Cria e organiza os arquivos, os codigos e as senhas dos programas do usuario. 
Executa os comandos RENAME e LOAD. 

Elimina os arquivos (KILL) e executa os comandos JKL, BLINK, BREAK, CLOCK, LC, 
DEBUG, LCDVR, VERIFY e a maior parte do comando PURGE. 

Imprime as mensagens de erro do DOS. 

Comando DEBUG. 

Comandos FORMAT, COPY e APPEND. 

Comandos TIME, DATE, AUTO, ATTRIB, PROT, DUMP, HIMEM e a 1c parte dos comandos 
PURGE, SYSTEM e PDRIVE. 

Comandos DIR e FREE. 

Comandos BASIC2, BOOT, CHAIN, CHNON, MDCOPY, PAUSE e STMT. 

Comandos CLEAR, CREATE, ERROR, LIST, PRINT e ROUTE. 

Comandos FORMS e SETCOM. 

Executa a maior parte do comando PDRIVE. 

Comandos WRDIRP e parte do comando SYSTEM. 



Esse e o principal modulo residente quando o Basic disco esta sendo operado. 

Comandos GET e PUT. 

Comando RENUM. 

Comando REF. 

Imprime as mensagens de erro do Basic e la parte do comando RENUM. 

Executa as instrucoes Basic como comandos diretos. 

Comandos LOAD, RUN, MERGE, SAVE, DELETE e CMD"F". 

Esse e o modulo Basic residente quando um programa Basic esta sendo executado. 

Executa CMD"0". 



Obs: o disco ainda deve conter os seguintes arquivos DIRCHECK/CMD, EDTASM/CMD, DISASSEM/CMD, 
LMOFFSET/CMD, SUPERZAP/CMD, CHAINTST/JCL, CHAINBLD/BAS e ASPOOL/MAS. 



Figura 1 

SYS4. £ conveniente manter tambdm o arquivo SYS8 para 
que o sistema responda ao comando DIR. 



A ESTRUTURA DO DIRETORIO 



Neste ponto, podemos iniciar a nossa incursao atrave's dos 
registros do disco, mas antes sera" preciso dar uma olhada no 
diret6rio do mesmo. Li deve constar o programa DIRCHECK/ 
CMD e o famoso SUPERZAP/CMD. Esses programas fazem 
parte integrante do NEWDOS e devem acompanhar o disco do 
sistema. Se voce adquiriu um sistema onde nao constavam es- 
ses dois programas, enta"o procure um amigo que os tenha e 
tire uma c6pia, pois e' fundamental te-los. 

diret6rio de um disco nada mais e do que uma serie de 
setores especiTicos onde sa"o armazenadas as informacCes vi- 
tais sobre o estado do disco e seus arquivos (ou programas). 
comando DIR apenas faz uma leitura sumaria da situaca"o e a 
apresenta ao operador. 

Na figura 2 vemos o resultado do comando DIR num disco 
bastante generico. Podemos notar apenas os arquivos existen- 
tes e que na"o receberam atribuicao de invisibilidade. No en- 
tanto, existem mais coisas por tris do diret6rio do que se 
possa sonhar. Para que os fantasmas comecem a aparecer, 
serd necessario utilizar o SUPERZAP. 



DRIVE NEWD0S80 00/00/00 


1*0 TRKS 


21 FDES (A CRANS 


TESTE /BAS DIRCHECK/CM0 


AL0/BAS 


CHAINTST/XL 


NWD80V2/ILF CPD/BAS 


EUCFUC/CMD 


LMOFFSET/CMD 


HICR0SIS/BAS EDTASM/CM0 


PLAN0/BAS 


SUPERZAP/CMD 


NEWDOS/80 READY 







Figura 2 
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O NEWDOS QUE NAO ESTA NOS MANUAIS 



Com o programa SUPERZAP na mem6ria do micro, exe- 
cute o modo DD, com os parametros de entrada 0,170 para o 
CP 500, ou 0360 para o DGT 100. Esses dois setores (170 e 
360) sao os primeiros setores do diretdrio e devem correspon- 
der mais ou menos a figura 3 (depende dos arquivos ou progra- 
mas do seu disco). 



O SETOR GAT 

(Granule Allocation Table) 



O setor GAT 6 o primeiro setor do diretdrio e contdm as 
seguintes inibrmacoes (acompanhe pela figura 3 e no seu equi- 
pamento): 

Tabela de distribuicao dos granules livres - cada um dos 
bytes no intervalo 00H a 5FH corresponde a um LUMP e cada 
bit corresponde ao status ocupado/livre de todos os granulos 
do LUMP. O bit 0, do byte, corresponde ao primeiro granulo 
do LUMP, o bit 1 ao segundo e assim por diante ate que se 
completem 8 granulos. Se o bit for igual a 0, o granulo esta 
livre e poderd ser utilizado. Se o bit for igual a 1, o granulo 
estd ocupado ou nao existe. 

Vejamos como exemplo o byte 21H. Ele corresponde ao 
trige'simo quarto LUMP do disco (21H=33 decimal). Como na 
formatacSo do disco normalmente o LUMP 6 definido com 2 
granulos, o valor FEH vai nos indicar que o primeiro granulo 
do LUMP estd livre, pordm o segundo estd ocupado 
(FEH=1 1111110). 

Tabela de existencia do granulo - Os bytes no intervalo 
60H a BFH esta"o relacionados aos bytes 00H a 5FH. Se um 
bit do byte d 0, enta"o o granulo correspondente na rirea 
00H a 5FH para esse LUMP existe e pode ser usado. Se o bit 
for 1, enta"o o granulo nao existe, nao pode ser utilizado e o 
seu correspondente na 4rea 00H a 5FH deve ser igual a 1 . Na 
realidade, embora o NEWDOS crie esses bytes de existencia 
durante a formataca"o, eles so servem para manter a compati- 
bilidade com os velhos TRSDOS. O NEWDOS nunca seta um 
granulo inexistente. Quando necessdrio, a tabela de existencia 
do granulo 6 descartada e os seus bytes sao utilizados na tabela 
de distribuicao dos granulos livres, ficando esta com a faixa 
00H a BFH. 

Codigo da senha do disco — O eddigo da senha do disco 
estii contido nos bytes CEH e CFH. 

Nome do disco - O nome do disco estd nos bytes DOH a 
D7H. 



DRV 00 A20 2E2F 2C2D 2A2B 0000 O0O0 0000 0000 .../,-*♦. 

10 0000 0000 0000 0000 0000 0000 0000 0000 

OH 20 2829 2627 27A7 26A6 0000 0000 0000 0000 ( )*".*.. 

30 0000 0000 0000 0000 0000 0000 0000 0000 

ORS tO 25A5 2<»A«» 23A3 2«tA*t 0000 0000 0000 0000 %.$.#.$.. 

171 50 0000 0000 0000 0000 0000 0000 0000 0000 

ABH 60 5800 2A00 5C*5 0067 C000 0000 0000 0000 X.'.NE.g. 

70 0000 0000 0000 0000 0000 0000 0000 0000 : 

TRK 80 F000 0000 7C00 001F 0000 0000 0000 0000 : 

9 90 0000 0000 0000 0000 0000 0000 0000 0000 

9H AO 0029 00E2 0000 0000 0000 0000 0000 0000 . ) 

BO 0000 0000 0000 0000 0000 0000 0000 0000 

TRS CO 0000 0000 0000 0000 0000 0000 0000 0000 

9 DO 0000 0000 0000 0000 0000 0000 0000 0000 

9H EO 0000 A100 3200 8900 0000 0000 0000 0000 2 

P FO 0000 0000 0000 0000 0000 0000 0000 0000 



Figura 4 
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Data do disco - A data do disco esti nos bytes D8H a 
DFH. 

Comando AUTO - Se o comando AUTO estiver ativado, a 
sua sintaxe constard dos bytes EOH a FFH. Se o primeiro by- 
te dessa a"rea for ODH, enta"o o comando AUTO foi desativado. 



SETOR HIT 
(Hash Code Index Table) 



setor HIT (figura 4) e o segundo setor do diret6rio (171 
ou 361) e cada um de seus bytes serve para indicar quando e 
onde estao localizadas as informacoes referentes aos arquivos 
do disco. A posicSo de cada byte dentro do setor e quern for- 
nece a localizaca"o das informaco'es. 

Cada grupo de informacoes relativas a um determinado ar- 
quivo recebe a denominacao gene'rica de FDE. Se um byte do 
setor HIT possui valor 00H, o seu FDE correspondente estd 
livre e pode ser usado ou entSo ele nao existe. Se o byte for 
diferente de 00H, entao o FDE correspondente esta" em uso e 
esse byte do setor HIT e o Hash Code obtido pelo nome e ex- 
ten s<To do arquivo. 

329 byte do setor HIT e" usado de modo diferenciado dos 
outros bytes do setor. Ele conte'm o total dos setores extras 
alocados para o diret6rio. Os valores possi'veis sffo: 0, 5, 10, 
15e20. 



OS SETORES DE FDE 
(File Directory Entry) 



Os demais setores do diret6rio tern os seus 256 bytes divi- 
didos em 8 grupos de 32 bytes cada um. Cada grupo desses 6 
que recebe a designa<;a"o generica de FDE e guarda todas as 
informacoes dos arquivos ou programas. Um FDE esta livre se 
o bit 4 do seu 19 byte for igual a e esta" em uso se o bit for 
igual a 1 . 

Na figura 5 temos um setor com seus 8 FDE. O 19 FDE 
inicia no byte 00H e vai ate" o byte 1FH, e assim por diante. 
Podemos identificar, nesse setor, os arquivos SYSO, SYS8. 
SYS16 e os programas ALO/BAS, CHAINTST/JCL e 
NWD80V2/ILF. Identificamos tambem um FDE totalmente 
zerado e um programa, FITA7/BAS, que foi deletado pelo 
comando KILL (note o seu 19 byte). 



Quando o NEWDOS e' solicitado a manipular um determina- 
do arquivo (LOAD"ALO/BAS" por exemplo), ele imediata- 
mente calcula o seu Hash Code (ALO/BAS-2AH)e vasculha o 
setor HIT buscando uma paridade. Quando tal paridade 6 en- 
contrada, o FDE correspondente e lido e seu nome e extensao 
sab com parados com os fornecidos pelo usuario. Se o sistema 
nao encontrar semelhanca, entao a busca no setor HIT conti- 
nuara ate o arquivo ser encontrado ou terminar o setor HIT. 

Note que, no nosso exemplo, o Hash Code de ALO/BAS 
(2AH) equivale tambem ao Hash Code do arquivo SYS4/SYS, 
apenas a sua posies difere (SYS4/SYS e' o byte 06H do 
setor HIT e ALO/BAS 6 o byte 62H). Para determinar a posi- 
cSo do Hash Code de um arquivo dentro do setor HIT, basta 
somar a posicao do 19 byte do seu FDE ao setor do disco, 
menos 172 (ou 362). No exemplo (ver figura 5)o 19 byte do 
FDE de ALO/BAS 6 60H e esta no setor 174, assim 
62H - 60H+02H. De uma olhada no byte 62H da figura 4 e 
voce tera" a confirmacao. 



DRV 00 5F20 0000 0053 5953 3020 2020 2053 5953 ... .SYSO. .. .SYS 

10 5678 1234 OF 00 0022 FFFF FFFF FFFF FFFF VX.«t..." 

OH 20 5F20 0000 0053 5953 3820 2020 2053 5953 SYS8 SYS 

30 5678 1234 0500 1300 FFFF FFFF FFFF FFFF VX.4 

DRS 1*0 5F20 0000 0053 5953 3136 2020 2053 5953 _ SYS16...SYS 

174 50 5678 1234 0500 0B00 FFFF FFFF FFFF FFFF VX.4 

AEH 60 1020 0020 0041 4«F 2020 2020 2042 4153 ALO BAS 

70 9642 9642 0100 0220 FFFF FFFF FFFF FFFF .B.B 

TRK 80 0000 0000 0000 0000 0000 0000 0000 0000 

9 90 0000 0000 0000 0000 0000 0000 0000 0000 

9H AO 0020 0020 0046 495* 4137 2020 2042 4153 FITA7...BAS 

BO 9642 9642 0100 2220 FFFF FFFF FFFF FFFF .B.B.." 

TRS CO 1020 0032 0043 4841 494E 5453 544A 434C . . .2.CHAINTSTJCL 

12 DO 9642 9642 0200 0800 FFFF FFFF FFFF FFFF .B.B 

CH EO 1020 OOOD 004E 5744 3830 3632 2049 4C46 NWD80V2.1LF 

P FO 9642 9642 0300 2120 FFFF FFFF FFFF FFFF .B.B..! 



Figura 5 



FPDE 
(File Primary Directory Entry) 



Quando o bit 7, do 19 byte do FDE, 6 igual a 0, entao esse 
FDE recebe a denominacao especifica de FPDE. Caso contra- 
rio, se o bit for 1 , a denominacao sera FXDE. A diferenca en- 
tre FPDE e FXDE € apenas para determinar se um FDE con- 
tem todas as informacoes do arquivo ou se ele e apenas uma 
extensao de um outro FDE. FPDE, como o pr6prio nome 
diz, conte'm asj)rincipais informac6es do arquivo e pode, ou 
nao ter extensoes FXDE. 
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Figura 6 

Como podemos ver, o FPDE 6 a "carteira de identidade" 
dos arquivos ou programas do diretorio. Na figura 6 temos um 
dos FPDE da figura 5 (correspondente ao programa ALO/ 
BAS). Cada um dos 32 bytes tern uma significacao muito espe- 
cial para o sistema. 

19 byte - esse & um dos bytes fundamentals do FPDE e 
deve ser bastante conhecido pelo usuano. Cada um dos seus 
bits significa: 

bit 7 - - indica um FPDE. 
1 - indica um FXDE. 

bit 6 - = arquivo normal (CMD, BAS, JCL, DAT, etc). 
1 - arquivo do sistema (SYS). 

bit 5 - indefinido. 

bit 4 — = FDE esta' livre e pode ser ocupado. 

1- FDE conte'm um arquivo (esta ocupado). 

bit 3 — = arquivo visi'vel. 
1 = arquivo invisivel. 

bit 2 a nivel de acesso ao arquivo ( o valor estard entre e 
7 e corresponde aos ni'veis do parametro PROT, 
do comando ATTRIB). 

Podemos notar- facilmente que esse 6 o BYTE que recebe 
todas as atribuicoes do arquivo e que um arquivo normal do 
usuano, sem protecao ou atribuicao, devera te-lo com o valor 
10H,poislOH = 00010000 (bit 4=1). » 

m 
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JUNTOS FORMAM 
A PERFEITA HARMONIA QUE VOCE PROCURA 

venha comprovar nosso atendimento 
EOUIPWIENTOS-PROGRAMAS-CURSOS-CONSULTORIA 



Teshi Informatka Ltda. 

Av. 28 de setembro 226-lj. 1 10 tel:(02l) 284-6949 



ScFtKrisiiari 

Revendedores Autorizados 



Rio de Janeiro 

Seietronbr. 

Repubiica ao Lioano. 25-A 

Rio de Janeiro • RJ 

CEP 20061 

Gocnel 

R Dr El Jalck. 25 35 
Nova Fnbutoo - RJ 
lei 224208 

VGC 

Av Brasil. 10S<07 
Araruama • RJ 
CEP 28970 

ENIREUVROS 

As Re Branca 156 terreo 
Rio 0© Janeiro- RJ 

MAS, 

Vise ae Piraja. 303/217 
Rio ae Janeiro RJ 
lei 267 8597 

Pemambuco 



Eietrbnica I 

R Porto Aiegra 112 

Caruoru - Pi 

CEP 55100 

Atagoas 

Expoento 

Av Siqueira Campos. 838 

Moceto- AL 

lei (082)223 3979 

Sao Paulo 

Imates 

Av aos lmoj6s. 467 

Soo Paulo SP 

tei. 61.4049 61 0946 

Fototeo 

R Boa Vista. 314 3° anaaf 

Sooftjvjlo-SP 

le* 35.7131 R/32 

M«mocord« 
R AmoaofBuena 855 
Ribelroo Ptelo SP 
let (016)636 0586 



FotopWca 

Alarneaa Jutua. 434 
SooPoulo-SP 
tei 421.5211 

m 

R Ffei Caneca. 7 
Santos -SP 
tei 35 1792 
Computefland 
Av Anaeica 1996 
SooRaulo SP 
C8> 01228 

Uvrarto PoUedro 
R Autoia. 704 
Soo Paulo • SP 
lei 221 6764 

RC Mlcrocomputadotes 
Av Esraaos Unloos. 983 
Piracicobo - SP 
'el 33 7018 

Rio Grande do Sul 

Advancing 

R. Androdas. '560 aalefia 

Molcon 518 Porto AJegre • RS 

lei 26 8246 

JH Santos 

Pea Otavio Rocha, 41 

Porto Aleore - RS 

CEP 90000 

India Center 

R Fioriano Peixota 1112 ooni 
3143 Santa Maria • RS 
tei (055)221 7120 

GeremtaUda. 

Av Julio de Castlihos. 1872 

Caxios do Sul - RS 

tei 221 1299 

NOMMMfl 

Av JuBo ae Castimos. 3240 
Caxtos do Sul - RS 
tei 2213516 
MIcionnyQ 

R Julio deCastilhos. 441- 
1 °anaor Novo Homouroo RS 
tei (0512)93 4721 



BaMa 

Onccino 

Snooping Center itoigara 
l|40 1"piso 
Salvador BA 
tei (071)248 6666 

Santa Catarlna 

Supermlcro Show 

R ads iiheus. 10 li 6 
Florianopolis SC 
tei 22 8770 

Parana 
Computfque 
Av Batel 1750 
Curitiba PR 
tei 243 1731 

Madison 

Av Mol Deodoro. 31 1 

Curitiba PR 

tei 224 3422 

Minos Gerats 

Computrorilx 
R Sergipe. 1422 
Belo Horijonte MG 
tei (031)225 3305 

Elerrorddto 

R Aqulles loOQ 441 A 
Belo Horlronte MG 
tei 1031)222 8903 

MkrroPocos 
R Assis EigoeiredQ 1072 
PocosaeCaldas MG 
tei (035) 721 1883 

Blow-Up 

fin Floitano IWxotQ 396 

Ubendndia-MG 

tei 235 1413 235 7359 

Brasilia 



MaNN 

SCLN30 



! 302 bl A l| 63 
Brasilia DP 
tei (061)225 4534 
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O NEWDOS QUE NAO ESTA NOS MANUAIS 



29 byte - esse byte mantem alguns parametros relaciona- 
dos aos comandos do DOS. Seus bits significant 
bit 7 - - o arquivo pode ocupar mais espaco quando ne- 

cessario. 

1 - nao e" permitida a ocupacao de mais espago 

(DIR, ATTR1B, CREATE, e a rotina de termino 

de arquivo do DOS utilizam esse bit). 

bit 6 - 0=0 fechamento de arquivo (a ni'vel de DOS) pode 
realocar os granulos excedentes acima do EOF. 

1 = o realocamento nao epermitido (DIR, CREATE, 
ATTR1B utilizam esse bit), 
bit 5 - = nao ha registro para arquivo. 

1 = pelo menos um setor do arquivo foi gravado ou 
atualizado (DIR, ATTRJB, CREATE. PROT.COPY 
e a rotina de gravacao do DOS utilizam esse bit). 

bit 4 a nao sao utilizados. 
39 byte - nao utilizado. 
49 byte - byte de baixa ordem do EOF. 

5° byte - tamanho da gravacao logica (LRECL, - 256) 
em quantidade de bytes. 

69 ao 139 bytes - nome do arquivo. 

149 ao 169 bytes - extensao do arquivo. 

179 e 189 bytes - c6digo da senna do arquivo. 

J 99 e 209 bytes - codigo da senha de acesso. 

219 byte - byte medio do EOF. 

229 byte - byte de alta ordem do EOF. Os 3 bytes juntos, 
49, 219 e 229 formam o valor do EOF. 

239 ao 309 bytes - 4 pares de bytes onde cada par especi- 
fica uma area de 1 a 32 granulos adjacentes e associados ao 
arquivo formato de cada par apontador e: 

19 byte 255 - significa o fim da area para aquele arquivo. 

254 (FEH) - significa que o proximo byte conte'm 
o codigo da posicao do primeiro, ou proximo, 
FXDE associado ao arquivo. 

a 253 (00H a FDH) - representa o LUMP do dis- 
co em que tal area comeca. Esse valor e tambem a 
posicao, dentro do setor GAT, do byte associado a 
ele. 

29 byte Quando o 19 byte e menor que 254, os 3 primeiros 
bits do 29 byte (faixa de a 7) representam o 



numero do granulo inicial dentro do primeiro grupo. 
Os outros 5 bytes sao o numero de granulos adjacen- 
tes menos 1 . 

319 e 329 bytes — par de bytes apontadores que serve para 
assinalar o fim do FPDE ou sua extensao. 

19 byte 255 (FFH) - indica fim do diret6rio. 

254 (FEH) - existe para esse arquivo uma exten- 
sao FXDE. 

29 byte se o 19 byte for 254, entao esse byte representa o 
codigo da posicao para localizacao da extensao 
FXDE. 



FXDE 
(File Extended Directory Entry) 



Quando o arquivo possui mais do que 4 aieas associadas, 
entao e criado o FXDE, que passa a funcionar como extensao 
do FPDE. formato do FXDE e: 

19 byte — bit 7 e 4 sao ambos iguais a 1 para indicar um 
FXDE. e todos os outros bits devem ser iguais a (o valor cor- 
respondente sera 90h - 10010000). 

29 byte - codigo DEC do FPDE ou FXDE anterior para 
esse arquivo. 

39 ao 229 bytes - nao sao utilizados e devem ser zerados. 
239 ao 329 bytes - sao utilizados da mesma forma que no 
FPDE. 



A MAMPULA^AO 
DOS DADOS DO DIRETORIO 



Alterar ou manipular os dados do diretorio de um disco e 
mais ou menos como mexer com abelhas: se voce souber o que 
esta fazendo, nao ha tantos riscos de catastrofes como a pri- 
meira vista possa parecer. De fato, esse 6 o linico meio seguro 
de aprender algo, e se alguem tivesse que dar "conselhos" so- 
bre esse assunto, o unico digno de nota seria: nao tenha medo 
e vi em frente. Quern nunca levou um tombo de bicicleta, 
nunca realmente aprendeu a andar nelas. 

Por esse motivo, e sempre bom usar copias (backup) e dei- 
xar sempre um disco como matriz. 



SUPERZAP: descricao e operacao 



OSUPERZAP e um dos utilitarios 
mais poderosos que existe 
atualmente no mercado. A sua 
u (11173930 nao se restringe apenas ao 
NEWDOS. podendo mesmo operar com 
outros sistemas, respentando-se, e claro, 
certas limita^oes. 

Ele se presta a uma serie de operac.6es 
tais como: consertar setores do disco, 
dcsproteger arquivos, recuperar programas, 
limpar areas e copiar setores. A sua operacao 
e bast ante simples e seu menu apresenta 
todos os modos de operacao possi'veis. 



Os modos de display apresentam um setor 
standard de 256 bytes, da seguinte forma 
(acorn imilie pela figura 2): 

coluns I - especifica^des do setor em 
questao: Drive (DRV), setor do drive 
(DRS), trilha (TRK) e setor relativo da 
trilha (TRS). 

coluna 2 - indice dos bytes do setor. 

coluna 3 - os 256 bytes do setor 
apresentados em pares hexadecimal. 

coluna 4 - os 256 bytes do setor 
apresentados em caracteres. 



Para a movimentacao dentro do disco nos 
modos de display basta pressionar a tecla 
+ para avancar um setor ou a tecla - para 
retrocedcr. A tecla X retorna o menu, e 
digitando EXIT o SUPERZAP e 
abandonado e e feito o retorno ao DOS. 

Para alterar um setor basta digitar MOD e 
o byte que sera modiflcado. Um cursor 
piscara ncssa posicao c para 
modificacoes basta somente digitar o 
novo valor. O cursor pode ser movimentado 
pelas setas do tecla do, e para executar as 
modificacoes basta pressionur ENTER. 



A teoria apresentada nesse trabalho e apenas uma introdu- 
ce ao conhecimento necessario para alterar o diretorio com 
seguranca, porem com paciencia e atencao sera possi'vel corri- 
gir a maior parte dos problemas que o disco apresentar. Va- 
mos, a titulo de ilustracao, ver como recuperar um arquivo 
acidentalmente, ou nao, deletado. 

Tomemos como base a figura 5. Nela ha o programa 
FITA 7/BAS que, como o 19 byte do seu FPDE mostra (byte 
A0H), foi eliminado pelo comando KILL. Para que o arquivo 
passe a existir no diretorio, basta que o bit 4 do 19 byte seja 
setado. Para proceder a alteracao, utilize SUPERZAP em 
modo de modificacao. Digite MODA0 e o cursor piscara exa- 
tamente em cima do byte desejado. Introduza o valor 10H e 
execute a modificacao (ENTER). No FPDE isso e tudo que se 
tern a fazer, lembrando tambCm que essa e a forma de eliminar 
as protecoes dos arquivos. 
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Figura 7 

Se sairmos do SUPERZAP (EXIT) e dermos o comando 
DIR do DOS, o diretorio passara a listar o programa recupera- 
do (figura 7), porem isso nao significa que o programa esta 
accesi'vel (notar que os parametros de ocupacao do disco ainda 
sao os mesmos da figura 2). Para que o programa possa ser li- 
do, sera preciso consertar tambem o setor HIT 

O programa DIRCHECK pode ser muito litil nesse momen- 
to. Com ele sera possi'vel localizar qual byte do setor HIT esta" 
"com defeito" e obter uma analise do andamento das modifi- 
cacoes no diretorio (se alguma coisa estiver errada, o DIRCHECK 
acusara o erro e o seu local). 

No nosso exemplo ocorrera a mensagem de erro no byte 
A2H do setor HIT. Na figura 4 podemos constatar que esse 
byte esta zerado, quando deveria conter o Hash Code de 
FITA 7/BAS. O modo DNTH, do SUPERZAP, calcula esse 
Hash Code, que no nosso exemplo sera DAH. Agora e so posi- 
cionar esse valor no setor HIT e ZAP. Como que por encanto... 
la estara o programa FITA 7/BAS. 

Nao se entusiasme muito, pois coisas ainda podem aconte- 
cer. Lembre-se sempre de que, para um programa ser recupera- 
do com pleno sucesso, ele precisa antes existir. Se houve qual- 
quer gravacao posterior no disco que sobrepos parte, ou a tota- 
lidade do espaco ocupado pelo arquivo, recupera-lo sera uma 
tarefa impossivel. Alguns casos, no entanto, podem ser resol- 
vidos mas isso ira exigir algumas "cirurgias" e uma boa dose de 
criatividade por parte do usuario. A regra continua sendo a 
mesma: ten tar, mesmo que isso signifique a destruicao total 
dos registros do disco (afinal era apenas uma copia). 
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O sucesso no Micro-Festival 84, 
da qualidade maior, 
do prego menor e 
das vendas realizadas, 
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agora tern um novo nome: 

tcraftll 

9 P' US 

e um novo endereco: 



computer store 



^ 



A Sacco Computer Store, esta agora em novas e 
amplas instalacoes com sua variada linha de compu- 
tadores e perifericos, destacando-se o novo micro- 
computador CRAFT II plus*, totalmente compativel 
com D.O.S. 3.3 e CP/M. 

Conhega todas as caracteristicas e vantagens 
do CRAFT II plus, tambem compativel com IVANITA* *. 
em nosso novo endereco: 

Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
Sao Paulo - Tels.: (011) 853-5520 e 280-4778 

•• ma'ca 'eff»str«ia da MtCROLHAf T "a p Cof" iiaa 
'••• ivaniT* Gerado* oeCatacieiM oara imgyo po-ii*gu*",A 




SDFTfJJfl 




CDinPLITflDDRES : 




Assistencia tecnica 

em microcomputadores nacionais 

e importados, compativeis com: 

Apple, TRS-80, PC/IBM, perifericos... 

Atendimento rapido e eficiente, 

ou em nosso laboratorio credenciado, 

sob contrato anual ou chamada avulsa. 



Av. Cor/feu de Azevedo Marques, 1691 - Cj. 01 
Tel.: 813-6661 

Futuras instalagoes: R. Pinto Goncalves, 115 
Tel.: 62-2773 




O micro da Scopus na A v. Tiradentes 

Nexus aprovado, 
Scopus pede passagem 

Depois de urn investimento de Cr$ 250 milhoes no ano passado e 
a mobilizacao de uma equipe de 17 profissionais de hard e software 
durante cerca de 1 1 meses, a Scopus conseguiu a aprovacao do Nexus, 
seu microcomputador de 16 bits. A aprovacao da SEI torna a Scopus 
a unica empresa nacional autorizada a fabricar um micro de 16 bits, 
compatfvel com o computador pessoal da IBM. Segundo a Scopus, 
um fator fundamental para a aprovacao do Nexus foi a demonstra- 
ca"o, por parte da empresa, de que o software bcisico do equipamento 
— SISNE e Interpretador BASIC - foi realizado com recursos pr6- 
prios e sem dependencia de fontes externas de tecnologia. 

A tftulo de curiosidade, a Scopus esteve presente no carnaval pau- 
lista deste ano. colocando na avenida tres microcomputadores de sua 
fabricacao. Os micros participaram da festa desde a fase de organiza- 
cao ate o dia do desfile, controlando a montagem das arquibancadas, 
a instalacao de som, iluminacao e decoracao, entre outras atividades, 
e fornecendo informacoes importantes, tais como hora>ios dos desfi- 
les, letras de sambas enredo e servicos diponfveis na avenida. 




Prestacao de Servicos 



A loja lmar§s, de Sao Paulo, esta" 
vendendo uma variada lista de 
aplicativos comerciais e pes- 
soais, acompanhados de manuais, 
etiquetas com o resumo do con- 
teudo do sistema e garantia de 
manutencao. Osaplicativos estao 
disponfveis em disquetes ou fi- 
tas cassete. A ImarSs ]a esta" co- 
mercializando tamb6m o micro- 
computador de 16 bits PC 2001 , 
da Microtec, compatfvel com o 
PC da IBM. A configuracao ba- 



sics do PC 2001 e composta por 
UCP com 256 Kbytes, monitor 
de fbsforo verde de alta resolu- 
cao. interfaces serial e paralela. 
dois drives para disquetes de 5", 
e unidade de teclado desta- 
civel. Acompanham o equipa- 
mento um processador de texto 
(wordstar), uma planilha de ca"l- 
culos (calcstar) e um gerencia- 
dor de arquivos (infostar). A 
Imar6s oferece garantia do PC 
2001 pelo perfodo de um ano. 



Bolsas de Estudo 

Estao abertas inscricoes para bolsas de estudo nos cursos de 
p6s-graduacao e mestrado em Eletronica, ano letivo de 1985, que 
se realizam no "Philips International Institute — PIT", em Eind- 
hoven, Holanda. Os candidatos devem ser diplomados ou estar 
cursando o ultimo ano de Engenharia Eletronica ou Ffsica. nao 
ter dependencias em seus cursos na data do embarque. ter a ida- 
de maxima de trinta anos e falar f luentemente o idioma ingles. 
As inscricoes podem ser feitas ate" dia 31 de maio, pessoalmente 
ou por carta, na Gerencia do Departamento de Recrutamento e 
Selecao de Pessoal da Philips, Rua Geraldo Flausino Gomes, 33, 
8P andar, Sao Paulo, tel.: (01 1) 545-2377. 



Brasil Trade Center: 
negocios em expansao 



Os negbcios parecem que vao 
de vento em popa. O grupo em- 
presarial Brasil Trade Center e 
Participacoes S/A, no Rio de Ja- 
neiro, ale"m de sua sede em Ipa- 
nema esta" inaugurando uma fi- 
lial no Centro, na Rua da Assem- 
bled, 10, loja. 

Como bem define o presiden- 
te do grupo, Manoel D'Assuncao 
F. Gomes, o BTC e" um Banco 
de Negocios, aberto a qualquer 
segmento de mercado que se 
mostre promissor, tendo como 
meta principal fomentar o inter- 
cambio com o mercado interna- 
cional e oferecer uma seVie de 
produtos e facilidades ao empre- 
sera>io e outras pessoas interes- 
sadas. 

Sao vSrias empresas dentro 
de uma s6, e entre elas esta" a 
BTC Computadores e Vfdeo 



(Compvfdeo). Nao e" apenas uma 
loja, como diz Manoel D'Assun- 
cao, "6 uma comunidade basea- 
da no sistema cooperativista, da 
qual podem participar todas as 
pessoas interessadas em micro- 
computadores, videocassetes e 
videogames". A ela estao direta- 
mente ligadas outras empresas 
da holding que permitem ofere- 
cer servicos paralelos aos usu3- 
rios, como a BTC Viagens e Tu- 
rismo, promovendo visitas aos 
principals centros de informdti- 
ca norte-americanos, bem como 
a feiras e exposicbes, e a BTC 
Administracao de Consbrcio, fa- 
cilitando a aquisicao dos equi- 
pamentos pelos clientes. 

A Compvfdeo comercializa 
toda a linha de microcomputa- 
dores existentes no mercado na- 
cional, ale"m de impressoras, dis- 




Oferecendo servicos paralelos aos usudrios de micros e videos, a 
Compvideo investe na indiistria de Informa'tica na medida em que ela 
esteja ligada ao lazer e d administracSo. 

prbprio em at6 10 vezes sem ju- 
ros, com mensalidades reajusta- 
das de acordo com a ORTN do 



quetes, drives, jogos em tita cas- 
sete, videogames e videocassetes. 
O software aplicativo e" desenvol- 
vido por uma equipe de analis- 
tas, que tamWm ministram cur- 
ios de BASIC na propria Comp- 
vfdeo. Possuem financiamento 



mes. A sede do BTC fica na Av. 
Epitacio Pessoa, 280, Ipanema, 
tel.: (021) 259-1299, Rio de Ja- 
neiro, RJ. 



Link 727 



A Link Tecnologia e a Microtec Sistemas 
se associaram para o lancamento do Link 727, 
um microcomputador total mente compatfvel 
com IBM PC. As primeiras 20 m^quinas foram 
entregues no final de 83, para avaliacao por 
parte de grandes empresas, revendas, software- 
houses e assistencias tecnicas e, segundo a Link, 
a aceitacao e desempenho foram considerados 
excelentes. O Link 727 tern UCP com proces- 
sador INTEL 8088, de 16 bits, velocidade de 
5 MHz e membria de 256 Kbytes de RAM. A 
configuracao basica vem com dois acionadores 
de discos de 5 1/4", de dupla face e dupla 
densidade, e monitor profissional de fbsforo 
verde. Ja" se encontram disponi'veis tambe"m 
os seguintes perifeVicos: expansao de membria 




O 727, da Link 

ate" 1 Mbyte, disco Winchester de 5 ou 10 
Mbytes e monitor policromStico RGB. Em 
sua configuracao inicial, o 727 custa 1.525 
ORTN, e a empresa Link esta" selecionando re- 
vendedores. 



PC Filter 



Rufdos e interferencias de ra<Jio-frequ6n- 
cia em microcomputadores sem duvida ja" 
deixaram muita gente a ver navios apbs Ion- 
gas horas de digitacao jogadas por 3gua abai- 
xo. Os rufdos e interferertcias sao gerados de 
va>ias formas, entre elas por motores sendo 
acionados, aparelhos domesticos etc., e, pe- 
netrando em computadores, podem causar 
danos desde a perda de programas ou arqui- 
vos, e are dano f fsico em componentes. Pro- 
curando evitar este tipo de-problema, a BSL 
Equipamentos Ltda. esta" lancando no Bra- 
sil o PC Filter. O PC Filter pode ser instala- 
do pelo prbprio usuario e ja" se encontra-A 
venda nas lojas Imards. em Sao Paulo. Seu 
precodde 10 ORTN. 



Acessorio 
para rede Cetus 



Depois de lancar sua rede local, a 
Cetus colcca no mercado o servidor 
de arquivos CS 1200. CS 1200 e 
um nodo especial capaz de 
gerenciar at§ quatro unidades 
de discos rfgidos Winchester de 
5 ou 10 Mbytes, permitindo 
assim que diferentes usua>ios 
da rede compartilhem de um ou 
mais discos. O nodo e" um 
elemento inteligentede ligacao 
entre o equipamento usuario 
e a rede. Ja a ligacao do 
equipamento usuano com o 
nodo e feita atrave's de uma 
interface serial padrao RS 232C 
ou uma interface paralela tipo 
Centronics. 



A Cetus e* uma rede local do 
tipo "bus" (serial) com 
protocolo de comunicaca"o 
interno transparante aos 
elementos da Rede. Na"o existe 
nenhum elemento centralizador 
ou controlador da rede, todos 
os nodos sao inteligentes. Se 
houver falha em algum dos 
nodos, esta nao ira" interferir 
na comunicacao entre os demais 
elementos da rede. Podem ser 
ligados a rede local Cetus 
computadores, 

microcomputadores e todos os 
perife>icos. A rede Cetus 
permite a interligacao de ate" 
255 nodos. 



Contabiiidade Geral da Nasajon 



O Sistema de Contabiiidade 
Geral da empresa carioca Nasa- 
jon Sistemas, para a linha TRS- 
80, pode ter seu arquivo de da- 
dos expandido em ate" quatro 
disquetes com 1 mil lancamen- 
tos por disquete e seu tempo de 
resposta 6 de 3 segundos. 



Este software, desenvolvido 
para o CP-500 e DGT-100, 6 ca- 
paz de emitir relatdrios como 
extrato de contas, livro didrio, 
livro razao, relatdrio para centro 
de custo, balancete de verifica- 
cao, balancete mensal e balanco 
geral. 



ISTRINGSl i 



4-As lojas CompuShop. de Sao Paulo, estao vendendo discos rfgidos 
fabricados pela GEN, do Rio Grande do Sul. O disco de 5 Mbytes 
custa 750 ORTN e o de 10 Mb, 900 ORTN.* A filial da Microdigital 
de Porto Alegre coloca a disposicao dos usuarios da linha TK o seu 
telefone: 24-5060. Para aqueles que desejarem dirigir-se diretamente 
ao local, o endereco 6 Av. Borges Medeiros, 410, b loco II, IIP andar, 
conj. 1108.* A Lys Eletronic e a Stieletronica assumiram, em partes 
iguais, o controle aciona>io da Stratus Informa'tica, elevando seu capi 
tal social para Cr$ 300 milhoes. Os novos recursos. segundo a empresa 
permitirao desenvolver novos produtos e expandir a linha de impresso 
ras, terminals impressores, teleimpressores e telex eletronico.* A Esul 
tra, de Belo Horizonte, esta" oferecendo cursos de Gerencia Empresa 
rial, Analise de Sistemas, Programacao COBOL e Programacao BASIC 
utilizando equipamentos SID 3000, S-700, CP-500 e CP-200. Informa 
goes na Av. do Contorno. 6475/5826 e Rua Sergipe, 1 199. 



M-100 X y a novidade da Globus 

A Globus esta" lancando no mercado a impressora M-100 X, um 
modelo aperfeicoado com capacidade de imprimir 100 caracteres por 
segundo, em 132 colunas. A principal mudanca neste produto consis- 
te na substituicao da cabeca de impressao que passa de sete para nove 
agulhas, garantindo melhor qualidade visual e permitindo maiores re- 
cursos de impressao. O sustendador da cabeca de impressao 6 em du- 
plo eixo e o equipamento possui grande flexibilidade de software, 
compatibilidade Epson e com pacotes Apple II. 



Danvic lan^a 
Camilla com sucesso 




Apresentado na ultima Feira 
de Informeitica, o microcom- 
putador Cacula. fabricado pela 
Danvic S.A., entrou de sola no 
mercado paulista: duas sema- 
nas depois de seu lancamento 
a ni'vel comercial foram vendi- 
das, em 15 dias, 60 unidades, 
ou seja, a producao relativa a 
dois meses deste equipamento. 
Com isso a empresa superou 
suas expectativas de duplicar o 
faturamento neste ano, espe- 
rando agora quadruplici-lo. 

Em sua configuracao mi- 
nima, o Cacula vem com UCP 
com dois processadores Z80A 
(sendo um para o vfdeo), te- 
clado profissional com letras 
maiusculas ou minusculas, te- 
clado numeYico separado, vf- 
deo de fbsforo verde 80 x 24 



e um drive para disquetes de 
5 1/4" face simples. 

O proximo lancamento da 
Danvic sera o Cacula Dual, que 
ale*m do Z80A tera tambdm 
um microprocessador 8088, de 
16 bits, e trfis sistemas operacio- 
nais: CP/M versao 2.2, CP/M 
86 (16 bits) e MS-DOS (16bits 
utilizado no PC da IBM). E os 
proprietaries do Cacula que 
quiserem passar a trabalhar 
tamWm com 16 bits poderao 
comprar a placa com o proces- 
sador 8088 separadamente. A 
placa ja estS disponfvel no mer- 
cado em duas versoes, com 
1 28 kb e com 256 kb. Os dois 
equipamentos sao totalmente 
compatfveis com o DV 2000, 
sistemaimultiusua>io da Danvic. 



» 
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Microfestival 84 



Com uma diferenca de me- 
nos de seis meses do grande 
evento da a>ea, a Feira de Infor- 
matics, na"o poderiam ser muitas 
as novidades apresentadas no 
Microfestival 84. O que se viu, 
de modo geral, foram implemen- 
tacdes em cima de produtos ja" 
lancados no Informdtica 83. 

No entanto continuam apa- 
recendo no mercado novos mi- 
cros de 8 bits. f= o caso do ATS 
2800, da Angra, empresa que es- 
t& ingressando na a>ea. ATS e 
um microcomputador muititare- 
fa, com processador Z80A e me- 
m6ria RAM que varia de 64 K 
ate" 4 Mb. Sua configuraca"o ba - - 
sica 6 composta por teclado com 
UCP, drive para disquete de 5 
1/4" e video de 12" de f6sforo 
verde. O preco desta versSo e de 
570ORTN. 

A Racimec apresentou seu 
micro portdtil, o Senior, com 
processador 8085, composto 
por dois modulos bdsicos — te- 
clado com visor e drive com 
UCP - que se fecham em uma 
unica caixa para transporte. A 
empresa lancou tambe'm duas 
impressoras, Ita e Carla, de 100 
e 120 cps respectivamente. 

A Itautec mostrou a linha 
I 7000 Jr em duas versdes: Jr e 
Jr E, que apresentam diferencas 
b&icas a ni'vel de teclado e dis- 
quetes. O Jr E, ale"m do teclado 
alfanume>ico, possui um teclado 
numeVico reduzido e pode traba- 
Ihar tamWm com disquetes de 
8". A empresa lancou vdrios ser- 
vicer de suporte, entre os quais 
uma se>ie de 160 aplicativos pa- 
ra diversas areas e que rodam em 
qualquer um de seus equipamen- 
tos. 

Na linha dos micros compa- 
ti'veis com o Apple, tivemos o 
Elppa Jr, em versoes de 1 6 e 48 
K de RAM, e o Apple Senior (da 
Milmar, fabricante do Apple II 
Plus), que al4m do processador 
6502, vem tambe'm com um 
Z80A, tern teclado nume'rico 
reduzido e trabalha com letras 
maiusculas e miniisculas. O AP 
II, da Unitron, tern agora uma 
nova versa"o, a T. I. (teclado in- 
teligente). O novo teclado tern 
processador prbprio e 2 K de 
RAM, caracteres em portugues, 
maiusculas e miniisculas, e per- 
mite que se carregue caracteres 



especiais atravds do disco, atri- 
buindo funcSes a determinadas 
teclas. A Unitron lancou tam- 
be'm um monitor de video de 
fosforo verde, 12" e alta resolu- 
ca"o. A Microdigital mostrou o 
TK 2000 Color (que roda Apple- 
soft), agora disponi'vel para co- 
mercializaca"o. 

Para a linha Sinclair, a Tigre 
Eletr&nica lancou cartuchos 
com programas em linguagem de 
maquina, diretamente adapta- 
veis aos equipamentos, os quais 
sa"o comercializados pela Exa- 
tron. 

A Dismac apresentou no Mi- 
crofestival 84 o PC 16, compati'- 
vel com o PC da IBM. Possui 
processador 8088 e mem6ria va- 
riavel de 256 K at<* 1 Mb, atra- 
v^s de blocos de 128 K cada. A 
empresa trouxe tamWm seu dis- 
co Winchester de 10 Mb para a 
linha do Alfa 2064. 

A UCTE - Unidade Contro- 
ladora de Terminals Educacio- 
nais foi a novidade apresentada 
pela Digitus. O equipamento. 




Sysdata III, 
agora 
disponi'vel 
para 
comercializaca~o . 




TK 2000 
Color, da 
Microdigital. 







pii .IK^I/ 






If ■.__♦ 








mm 








■ 






Senior, 








computador 




r^fl « ■ 




porta" til, e a 






?ri " m 


impressora WA !/^^W 




Carla. dois Wttijii| 






lancamentos 1 lMi^^_ 






da Racimec. 









conectado diretamente ao DGT 
1000, faz com que ele possa 
controlar at6 16 outros DGT 
1000, que passam a funcionar 
como terminals para transferen- 
cia e recebimento de programas. 
A Elebra lancou um modulo 
opcional para a impressora Mo- 
nica, que permite tracar gr^ficos 
de alta resoluca"o e a Videocom- 
po mostrou uma seVie de moni- 
tores de vi'deo crom^ticos de 
14"a 14 MC. 

PREOCUPAQAOCOM O 
SOFTWARE 

Com relacffo aos lancamen- 
tos de software, o destaque fi- 
cou para os pacotes de ligacao 
de micros a equipamentos de 
grande porte. A loja Imargs esta 
comercializando dois desses pa- 
cotes. O BSC 3 permite a liga- 
ca"o de equipamentos da linha 
Apple a computadores 4341 , da 
IBM. Nesse caso, o micro passa a 
emular um terminal da famflia 



A TS 2800, o 
micro- 
computador 
multitarefa 
da Angra. 




3270. O outro pacote e" o BSC 
1 , at raves do qual os microcom- 
putadores passam a emular ter- 
minals 2780 ou 3780 para trans- 
missa"o de arquivos. 

Para o mesmo tipo de liga- 
ca"o, a Intertec tambe'm apresen- 
tou seus pacotes para micros 
com CP/M : Trans BSC 3 E , Trans 
BSC 3/T e a VersSo I, uma roti- 
na de acesso a disquetes. A Labo 
foi outra empresa que apresen- 
tou um sistema para ligaca"o de 
seus equipamentos emulando 
terminais 3270. 

Um sistema inteligente de 
resposta audi'vel chamado Tal- 
ker foi a novidade apresentada 
pela BMK. Ele acessa banco de 
dados atravds de telefone e ge- 
rencia at6 32 ligacdes. Ja a Spec- 
trum, fabricante do Microenge- 
nho, lancou no Microfestival 84 
um kit para utilizaca~o desse mi- 
cro como terminal de videotex- 
to. 

A Compucenter lancou no- 
vos programas para controle de 
projeto, calculo financeiro e ge- 
renciamento de banco de dados, 
entre outros, e no estande da 
Cobra estavam sendo demons- 
trados alguns dos 150 progra- 
mas listados pela empresa para 
serem utilizados em seus equipa- 
mentos em variadas a>eas de 
aplicaca"o. 

Ficou claro nesta mostra a 
preocupaQa"o crescente dos fabri- 
cantes de micros em ampliar ca- 
da vez mais o campo de utiliza- 
ca"o de seus equipamentos, atra- 
v6s do desenvolvimento de soft- 
ware para as mais diversas aVeas 
de aplicacSo. ■ 
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CENTRALDATA 

tii. i lipttniutm Hit. 



SUPRIMENTO E COISA SERIA 

• Matenha o seu computador bem alimentado adquinndo produtos de qualidade consagrada 

Fiia Magnetics 600. I200e 2400 Pes 



Discos Magnencos 5 Mb. 16 Mb. 80 Mb ele 
DISKETTES: 5 1/4 e 8" • marca VERBATIM 
ETIQUETAS PIMACO - PIMATAB 



AV PRESIDENTE VARGAS N : 462 GR 207 - TEL . I02H 253-1120 E 263-5876 
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• Fita C ARBOFITAS p/lmpressoras Globus M 200 — B 300/600 

• Fita pi Impressoras: Elebra, Elgin. Epson. Digilab. Oiablo. etc. 

• Cartucho Cobra 400 

• Pastas e FormulanosConlinuos 
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UNITRON AP II k o microcomputador prof issional de maior versatilidade. Com memoria expansivel ate 
384 K, capacidade para ate 14 unidades de disco, utilizacao do sistema CP/M, monitor de Tosforo verde com 
apresentacao de ate 160 caracteres por linha, impressoras Elebra ou Elgin e diversos acessorios opcionais, o 
AP II pode ser configurado na medida certa das suas necessidades. Utilizando programas ou processando a 
folha de pagamento, o contas a pagar/receber, o controle de estoques e a contabilidade, o AP II e a solucao 
ideal para os seus problemas ou da sua empresa. 

Esta e uma empresa profissionaL 

COMPUMICRO e a primeira empresa brasileira a adotar o conceito de "BUSINESS COMPUTER 
CENTER". Inteiramente dedicada ao uso profissional dos microcomputadores, a COMPUMICRO esta ca- 
pacitada a prestar-lhe um ATENDIMENTO TOTAL, desde o levantamento de necessidades, configuracao 
de equipamento, fornecimento de "hardware" e "software" e treinamento, ate a imp/antacao de SOLUQOES. 

A equipe da COMPUMICRO e formada por profissionais de elevada experiencia e alta capacitacao 
na a'rea de Informatica. Atuando desde 1981 na comercializacao de microcomputadores, a equipe da 
COMPUMICRO apos estruturar e dirigir duas das mais conhecidas lojas da cidade, e de fundar e dirigir a 
primeira revista brasileira de microcomputadores, estruturou-se para levar ate voce toda a experiencia de 
quern ja comercializou mais de 250 UNITRON AP \\,para os mais diversos ramos de atividades. 

FINANCIAMENTO - ALUGUEL - LEASING 

OCXIPLJ Rua Sete de Setembro 99—11°. 

INFORMATICA EMPRESARIAL LTDA. pbx 224-7007 
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A Tabela 6 um m6todo contraceptive) antigo; a novidade 6 que, com 
este programa, quern faz as contas e um micro da linha TRS-80 



Pil, 
a fertilidade 
programada 



* A. 



Armando Oscar Cavanha Filho 
Maria Beatriz de Campos Cavanha 
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Existem varias formas de se evi- 
tar a concepcSo, algumas com 
mais eficiencia do que outras. 
Desenvolvido para a linha TRS- 
80, este programa nfo aprova nem desa- 
prova qualquer me'todo utilizado, apenas 
faz uma interpretacao (a partir dos da- 
dos bibliograficos) do m^todo de Ogini- 
Knaus (conhecido tambern como Tabela). 
programa produz uma tabela com 
os dias mais provaveis de fertilidade (pos- 
sibilidade de engravidar) e infertilidade 
(possibilidade de nao engravidar) com 
relacao ao ciclo menstrual. Entende-se 
como ciclo menstrual o periodo (em nu- 
mero de dias) compreendido entre o pri- 
meiro dia do aparecimento de uma mens- 
truacSo e o primeiro dia da menstruacao 
seguinte. Este ciclo serd regular quando 
as menstruacoes ocorrerem com constan- 
cia em seus periodos de tempo e serd ir- 
regular se houver varia^o do periodo 
das menstruacoes (veja figuras 1 e 2). 

Vejamos como funciona o programa 
atrave's de um exemplo. Suponhamos 
que os ciclos sejam regulares de 29 dias, 
sendo que o primeiro dia de menstrua- 
9 jo tenha cai'do no dia IS de maio de 
1 984 . Quais os dias provavelmente fe'rteis 
e nao ferteis ate" a menstruacao seguin- 
te? 

Para que o programa possa fazer este 
cilculo, o micro perguntard se o ciclo i 
regular e esta pergunta deve ser respon- 
dida com S/N. A partir dai", o programa 
perguntar^ qua! o periodo, em mimero 
de dias, do ciclo menstrual e por ultimo 
a data do aparecimento do primeiro dia 
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Figura 1 - Ciclo regular 
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Figura 2 - .Ciclo irregular 



10 REM "PIL" 

15 DIM S*(7|lDIN Kf<12):DIM LD 1 1 

2\ 

20 CL5 

JO INPUT"0 CI - '■:. \STRUAL E' RE 

CULAR S/N'rAS 

40 IF AS-"S" THEN 130 

50 IF A*- ►"«" THEM 20 

60 PRINTM2'". , i J IODO,EM 

NUMERQ DE DIAS .DO CICLO MENSTRUA 

L IRREGULAR "■' "0*1 

70 INPUT >!C 

flO PPINT*^12 ( *QL*AL O PERIODO, EH 

XUKERQ DE DIAS, DO CICLO MENSTRUA 

L IRREGULAR XA.S LONGO"; 

90 INPUT ML 

1Q0 If MC- 23 Oft ML -50 THEN GOTO 

180 

ICLO IRREGULAR" 
120 JH*MC-19t ri»KL-lIl CLS: GOT 

130 PRINT<F320 # -QUAL O PERIODO t EM 
HtlHBRti DE DIAS, DO CICLO MENS7RU 
AL REGULAR-; 
140 INPUT ML 

150 IF ML' 2 J OP ML' 50 THEN GOTO 
180 

160 H*>HL-Hh F I -"ML- 12 
170 K$ "CICLO REGULAR"! CLS: GOT 
O 190 

180 CLS: PRINT"0 PROGRAMA TRABAL 
:>M VALORES ENTRE 23 E 50 DIA 
S": GOTO 30 

190 PHtNT4»320, _ OUAL A DATA DO AP 
APECIHENTO jl*DlAJ DA MEHSTRUACA 
O (DD,MM,AAAAI ": 
200 INPUT D,M,A 
205 CLS 
210 IF A 1984 OR M« 1 OR V 



PU 



D«l OR D GOTO 2 30 

220 GOTO 2 

230 PRINT"0 PROGRAMA SO ADMITE A 

NOS SUPER I ORES A 1963* MESES EOT 

RE 1 E 12, DIAS DE 1 A Jl"j GOTO 

190 

250 S*U>«"SEG":S*<2i *TER"s5fO 

r»"QUA"!S»r4r-*QUJ*:S*i5>-"SEX M : 

S*(«J""5AB"iS»l7j-"DO*riNJU)»"J 
AN" :M| I 2 \ - "FEV- ;jtf I 3 J - "MAR" J M$ ( 4 
,-"ABR"tMj f5>-"MAI":M*(6J'"JUN"s 
MS (7)""JUL":MS{ej-"AGO":K${9)-"S 
I 'A* < 10 | -"OUT" : MS ', 11 J - "NOV" -MS 
U2»="DE?." 

270 LO(l)'31sLD<2)e2B»LC'3J=31:L 
Dl4>-305LD<5)*31:LDt6)-30:LO«7^ 
3 1 1 LD { 8 ] ■ 3 1 i LD ( 9 i ■ 3 : LD ( 1 ) - 3 1 : L 
D(ltF=-30:LDtl2}-31 
280 ¥1- INT < A/100} i Y2-A-100"Yli 
N-0 

290 IF M*2 THEN GOTO 370 
300 N-2 

310 IF ¥2=0 THEN GOTO 350 
320 RR-Y2-4»INTlY2/4) 
330 IF RR<>0 THEN GOTO 370 
140 H»li GOTO 37 
350 RR=Yl~4*INT(Yl/4) 
360 IF RR=0 THEN LET N-l 
370 CC=1NT«365.25-Y2| + INTU0.56» 
M)+N+D 

380 W-3+CC-7*INTI (CC+2J/7J 
390 DI-D: CO-O: FF-192 
400 FOR J=! TO 7: PRINT»128+J»5, 
S*(J) : NEXT J 



410 GOSUB 1000 
420 Dl-PI+1 

IF DI»»LD<M) THEN GOTO 1000 

else if m' ►. . to 4 50 

14 :;osub 1300 

4 50 IF BI*1 THEN GOTO 4 60 ELSE I 

F Dl-29 THEN GOSUB 1000 

460 Dl=l: M=M*1 

470 IF K-:ll THEN GOSUB 1000 

480 A=A+1: M=l 

490 GOSUB 1000 

1000 CO=CQ+l 

1010 IF CO=ML*l THEN GOT* 

10 20 PftIST#FF+W*5,Dl} 

1030 IF CO>IN AND CO«=FI*l l 

GOTO 1050 

GOTO 1060 
1050 PftIKT#FF+W*5,"F"; 
1060 PRINT*242*64*INT(Cn 

107 IF W-7 THEN GOT' 

1080 W-H* 1 

1090 GOTO 420 

1100 FF=FF+64: M-3 

1110 IF DI=29 THEN RETURN L: 

OTO 420 

1300 IF Y2<>Q AND INTIY2 • 

THEN GOTO t340 

1310 IF V- 

THEN GOTO 1340 

SI-1: RETURN 
L340 BI*0s RETURN 
14 00 PRINT* . 
FERTIL"; 

1410 PRINT#837,K*; 
1420 PRINV»990,"P/OUTPO PLANO DI 

L4 30 INPUT I : n ? 1 

. ',20 



da mcnstrua9Jo, a qual deve ser informada desta forma: DD, 
MM. AAAA, Para o nosso exemplo, o resultado seria a seguin- 
te tabela: 
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Agora vamos imaginar um caso de ciclos menstrual irregu- 
lares, com os menores ciclos situando-se em 27 diase os maio- 
res ciclos eslendendo-se a 33 dias. Se o primeiro dia da mens* 
truaeffo for 20 de Janeiro de 1988, quais os dias provaveis de 
fertilidade? (observe que 1988 € ano bisscxto). Rode o pro- 
grama e veja a resposta. 

Obscrvacao: se houver OP9I0 pelo conceito de que "contam- 
se 14 dias do final do ciclo para tras, variando-se trcs dias a 
frente e ires dias para trls, trocar as linlias 120 e 260 por: 

120 IN-MC-17:FI=ML-1 1 : CLS -.GOTO 190 

160 IN=ML-17:FI>ML-n 

Os autorcs do programa agradecem ao Ftsico Fernando Ma- 
Ihciros Roxo da Motta pelo auxilio prestado nodesenvolvimcn- 
to da Idgica para constn^ao do calendirio. 
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Toda precisao e pouca quando se trata de calculos computacionais em BASIC. 
Este artigo discute o assunto e apresenta algumas sugestoes priticas 



Calculos precisos em 

BASIC 



Akeo Tanabe 



Sempre que um procedimento de calculo e mecanizado, 
usando calculadoras ou computadores eletronicos, o 
problema da precisSo passa a ser um ponto de considera- 
ca"o obrigat6ria. objetivo deste artigo 6 mostrar justa- 
mente os aspectos desta questao, particulares aos calculos com- 
putacionais realizados em microcomputadores, utilizando a lin- 
guagem BASIC. 

Na representacao de um valor real em BASIC, estao implfci- 
tas as informacoes de grandeza e a precisSo com que ela esta 
representada. No calculo manual, por nSo se impor limitacSo 
alguma ao numero de algarismos significativos empregados na 
representacao do numero, a questfo da precisSo e\ na maioria 
das vezes, ignorada. Ja" na aritmCtica computacional, como nao 
podemos aumentar o numero de algarismos significativos, o 
problema da precisfo ganha grande importancia, nfo podendo 
ser ignorado de maneira alguma. 



VISAO COMPUTACIONAL DE UM NUMERO REAL 

Como a precisSo e" ditada pelo numero maximo de algaris- 
mos representados, 6 interessante determinar este valor na lin- 
guagem BASIC. 

Um valor real ou de ponto flutuante em BASIC, na forma 
normalizada, e representado por 0,lxxxxxxxxxxx • 2 n , onde 
xxxxx sao algarismos da base 2 (0 ou 1). algarismo mais sig- 
nificative da parte fracionaria 6 sempre feito igual 1 . Como a 
parte Fracionaria tern sempre esta mesma forma, o zero, a vir- 
gula e o bit mais significativo nao sao efetivamente represen- 
tados. A posicao que seria ocupada pelo algarismo mais signifi- 
cativo e ocupada pelo sinal do numero. 

A parte fracionaria, que representa os algarismos significati- 
vos do numero, sem as informaoSes citadas e juntamente com 
o sinal do numero, e" representada na porcao conhecida como 
mantissa. A potencia efetiva da base 2 (n), que dita a ordem de 
grandeza do valor, somada ao valor +128 6 armazenada num 
byte, na porcSo conhecida como caracteristica. 

Uma descricSo detalhada da mecanica desta representacSo 
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se encontra especificada no artigo "0 Erro de Truncamento 
em BASIC", apresentado em MS n9 24, de set/83. 

A caracteristica 6 representada da mesma maneira em quase 
todos os microcomputadores; ja" a mantissa 6 representada dife- 
rentemente nos vanos micros. Por exemplo, no CP-500 a man- 
tissa e representada em 3 bytes (24 bits). No TRS-80 Color e 
no Color 64, a mantissa i representada em 4 bytes (32 bits). 

O valor nao se altera se a vi'rgula for deslocada para a direita 
e se o expoente for ajustado convenientemente. Assim, se na 
representacao do CP-500 a vi'rgula for deslocada de 24 posi- 
coes, teremos:0,lxxx..AX * 2 n = lxxx..Jtx, * 2 n24 . 

Esta identidade mostra que podemos raciocinar com a 
mantissa como um valor fracionario e tambe'm como um nu- 
mero inteiro, expresso na base 2. valor inteiro maximo que 
pode ser representado em 24 bits d 16.777 2\ 5. Enquanto 
em 32 bits, o maior valor inteiro € 4.294.967295. 

Se estivessemos acostumados a raciocinar com a base 2, as 
informaco"es acima seriam suficientes. Como nossos padroes 
de comparacSo sao todos referidos a base decimal, as informa- 
coes na base 2 serSo convertidas para a base 10. 

ALGARISMOS SIGNIFICATIVOS 
E ORDEM DE GRANDEZA 

Nos 24 bits reservados para a mantissa, no CP-500, pode- 
mos representar um numero inteiro compreendido entre zero e 
16.777.215. Portanto, 24 algarismos da base 2 sSo equivalentes 
a oi to algarismos decimals, pois sao oito os algarismos decimals 
do valor maximo. Como os algarismos decimals significativos 
somente sao dispom'veis para valores menores ou iguais a 
16.777.215, contamos com um mSximo confiavel de sete al- 
garismos decimals significativos. 

Procedendo de maneira analoga com os 32 bits empregados 
pelo TRS-80 Color e Color 64, concluimos pela possibilidade 
de representar um valor inteiro compreendido entre zero e 
4.294.967295. 

Os 32 bits sao equivalentes, portanto, a dez algarismos deci- 
mals significativos. Como esse numero somente se a plica a va- 
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lores inferiores ao miximo especificado, contaremos, efetiva- 
mente, com o maximo confiavel de nove algarismos decimals 
significativos. numero de algarismos na base decimal equiva- 
lente a um numero qualquer de bits pode ser mais elegante- 
mente determinado atraves da igualdade: 10* = 2 n . Aplicando 
logaritmo na base 10. temos: x = Iogi 2 n = n :: logi <)2. 

Sabendo que o logaritmo de dois na base 10 6, aproximada- 
mente, igual a 0,3010, para n= 24 corresponde x= 7,2240 e 
para n= 32 corresponde x= 9,6320. As partes inteiras dos valo- 
res de x apresentados representam o numero confiavel de algaris- 
mos decimals significativos com os quais se pode trabalhar. A 
parte fracionaria nao-nula indica que poderemos, em verdade. 
contar com um pouco mais do que osmimeros citados. Portanto, 
ate" oito algarismos decimals significativos no CP-500 e ate" dez 
algarismos decimals significativos no TRS-Color e no Color 64. 
Mas este algarismo adicional somente estaria disponivel para 
valores inferiores aos valores ja especificados. 

A ordem de grandeza do valor e determinada consultando- 
se a caracteristica. Como a representacSo e a mesma tanto para 
o CP-500 como o TRS-Color e Color 64, fazemos um trata- 
mento unico. O valor maximo 255, da caracteristica, corres- 
ponde ao expoente efetivo +127 da base 2. Podemos, entao, 
estabelecer que lO 9 = 2' 27 . Aplicando logaritmo na base 10 a 
ambos os membros, temos que g = 127 ::: Iog 10 2, donde o valor 
de g = 38,227 nos informa que 1,0 * 2' 27 = 1,0 : 10 38 . 

Por racioci'nio andlogo, para a caracteristica zero, que cor- 
responde ao exDoente efetivo minimo —128, podemos estabe- 
lecer que 108 = 2" 1 2 8 . donde g = 38,528. 

Portanto, o BASIC permite a representacao de mimeros 



reais que estejam compreendidos entre: —1.0 
-1.0 *10- 38 e entre +1.0 • 10 38 a +1.0 ; 10 +38 . 
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APLICACAO PRATICA 



Os exemplos especiais apresentados a seguir foram selecio- 
nados para ilustrar alguns aspectos importantes do problema 
da precisao. No primeiro deles, a f6rmula que permite a deter- 
minacao do dia da semana de uma data qualquer do calendario 
gregoriano (conhecida como Congruencia de Zeller) pode ser 
escrita como: 

f=-flNT(2,6M-0,2) + D+A-2S + 

+ INT(A/4) + INT (A/4)}- MODULO 7 (1) 

onde INT indica que devera" ser considerado apenas o maior 
inteiro contido no valor nume'rico da expressao entre paren- 
teses que se segue, MODULO 7 significa que o resto da divisao 
por 7, da expressSo entre colchetes, devera ser atribuido a va- 
ridvel f. Os dias da semana se associam ao valor de f, segundo a 
seguinte seqiiencia: 



f 


= Domingo 


f = 4 Quinta-feira 


i 


= 1 Segunda-feira 


f = 5 Sexta-feira 


f 


= 2 Terca-feira 


f = 6 SSbado 


f 


= 3 Quarta-feira 





Os parametros a serem considerados na expressSo entre col- 
chetes sao: A — dezena constituida pelos algarismos das deze- 
nas e das unidades do ano, por exemplo, A = 83 para o ano 
1983; S - dezena constitui'da pelos algarismos do milhar e das 
centenas, por exemplo, S = 19 para o ano de 1983; D - dia 
do mes; M - mes codificado da seguinte maneira: 

M= 1 para Marco, 

M = 2 para Abri, 
M = 3 para Maio, 



M = 10 para Dezembro. 



Os meses de Janeiro e fevereiro devem ser considerados co- 
mo 11 e 12, respectivamente, mas do ano anterior. Assim, se 
quisermos determinar o dia da semana correspondente ao dia 1 
tie outubro de 1983, os valores a serem considerados na f6rmu- 
lasSo:D = 1,M = 8,S= 19 e A = 83. Parao dia 1 de Janeiro de 
1900, os valores a serem considerados sao: D = 1, M = 11, 
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S = 18eA = 99,ja que deve ser considerado o ano anterior a 
1900, istoe\ 1899. 

No caso do mes de fevereiro, para o qual M = 12, esses 
erros sao ampliados de maneira a compro meter completamente 
o resultado final. A avaliacSo da expressao para M = 12 forne- 
cera o valor 30 para Kl, tanto usando o BASIC dos micros 
TRS-Color, Color 64. como do CP-500. 

Esta f6rmula exige a exatidao do resultado, nao admitindo 
erro de especie alguma. Por isso. se ela tiver que ser avaliada 
computacionalmente, usando-se a linguagem BASIC, devera 
ser tornado um cuidado muito especial na codificacSo da 
expressao. De fato, a subexpressSo INT (2,6 * M - 0,2) nao 
deveri ser codificada como: 



Kl = INT( 2.6 * M - 0.2 ) 



(2) 



Ja" foi visto que o valor 0.2 nao pode ser representado de 
maneira exata em BASIC (ver artigo "O Erro de Truncamento 
em BASIC". MS 24, set/83). 

O valor 2.6 tambe'm. quando convertido pa ra a b ase 2, se 
transforma num racional, representado por 10.1001, onde o 
traco acima dos algarismos 1001 indica que eles se repetem in- 
definidamente. Portanto, na expressa"o anterior, tanto 2.6 co- 
mo 0.2 tern representacoes internas em BASIC com erro de 
truncamento. 

K2 = INT ( ( 26 * M - 2)/10) (3) 

Mas esta expressao pode ser codificada na subexpressao a 
seguir, onde o problema do erro de truncamento foi completa- 
mente evitado: 

Nos mesmos microcomputadores, para M = 12 o resultado 
fornecido para K2 foi 31, mostrando assim que a f6rmula (2) 
conduz a resultado erroneo para o mes de fevereiro. Para os 
demais meses, ambas as formulas fornecem o mesmo resul- 
tado. 

A expressSo entre colchetes, na fbrmula (1), pode ser nega- 
tiva. Neste caso, o resto da divisao tambem sera' negativo. A 
esse valor negativo devera' ser adicionado o valor 7, para se 
obter o dia da semana correto. £ o caso do dia 1 de Janeiro de 
1903, em que D = 1,M= 11, S = 19 e A = 2. Para estes valores, 
a expressao entre colchetes tern valor -3, o mesmo acontecen- 
do com o resto da divisSo por sete. Portanto, o dia da semana a 
ser considerado para esta data e" f = 4, isto e, quinta-feira. 

Ale'm de 2.6 e 0.2, existem infinitos valores que tambem 
sao penalizados na linguagem BASIC. Por exemplo, o leitor po- 
dera notar que dentre os seguintes valores decimals: 0,1; 0,2; 
0,3; 0,4; 0,5; 0,6; 0,7; 0,8 e 0,9, apenas o valor 0,5 tern repre- 
sentacao exata. Todos os demais, quando convertidos para a 
base 2, se transformam em mimeros racionais, sem representa- 
cao exata em BASIC. 

SEGUNDO EXEMPLO 

Existem algumas formulas que podem ser avaliadas manual- 
mente sem problema algum, mas que computacionalmente 
sua avaliaijao se torna mvidvel. £ o caso, por exemplo, da de- 
terminacao do valor de tt atravCs da f6rmula de Leibnitz 
(1674). 

11 

« - 2 + 161 + + 

1*3*5 5*7*9 
1 1 



9*11*13 13*15*17 



Por se tratar de um irracional, o valor de tt nunca podera 
ser determinado de maneira exata, mesmo considerando m- 
finitas parcclas. A determinacfo manual de um alor aproxima- 
do de n seria trivial, mas trabalhosa, pois, considerando duas 
centenas de parcelas, chegamos a uma aproximacao aceitavel 
do valor. 

A avaliaijao da expressao (4) foi feita para diferentes com- >y 
putadores. Para mostrar que os grandes computadores tambem m 
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apresentam o mesmo problema, a avaliacao foi feita num IBM 
4341, com sistema operational OS/MVS. Neste computador, 
usando a linguagem FORTRAN, com precisao simples, a me- 
lhor aproximacSo encontrada foi 3,14153481. Surpreendente- 
mente, este valor € bastante abaixo de urn mais exato conheci- 
do: 3,14159 26535 89793 23846. 

Na linguagem FORTRAN deste computador, os valores 
reais de precisao simples sao representados na base 16, ao con- 
trano da base 2 usada no BASIC. De maneira an&oga,o valor 
real e\ portanto. colocado na forma: 0,Xyyyyyy yyyy 16 n , 
onde X e um algarismo da base 16 diferente de zero e yyy... 
sa"o algarismos quaisquer da base 16. A mantissa € represen- 
tada em 24 bits (3 bytes). A caractehstica, que € o valor re- 
sultante da soma de 64 ao expoente efetivo de 1 6, i armazena- 
da em 7 bits. sinal ocupa um bit especial. 

Em BASIC, na aritme'tica de precisao simples do CP-500, a 
mesma avaliacao da expressao (4) conduziu a uma melhor 
aproximacao. valor encontrado para tt foi 3,14158. 

No caso do computador IBM, o resultado final aproximado 
foi obtido ap6s consideracao das primeiras 64 parcelas da ex- 
pressao. Nao ha razao para a consideracao de um maior mime- 
ro de parcelas, pois o resultado final permanece estacionario. 
Ja no caso do CP-500. o resultado final, tambe'm estacionario, 
foi obtido com um mimero um pouco maior de parcelas. 
aproximadamente 90. 

Esta mesma avaliacao sendo feita no TRS-Color ou Color 
64, por contar com maior mimero de algarismos significati- 
vos que o CP-500, resultou em melhor aproximacao. Ao con- 
siderar 90 parcelas, o resultado foi 3,1415 7731, valor um pou- 
co abaixo do correspondente obtido no CP-500. Levando em 
consideracao cem parcelas, o valor encontrado foi 3,1415 
8022. 

No caso do TRS-Color ou Color 64, um maior mimero de 
parcelas 'podera ser considerado. com a obtencao de uma me- 
lhor aproximacao. Mas neste caso tambem, a partir de um cer- 
to valor, a consideracao de parcelas adicionais nao surtira - efei- 
to algum. A possibilidade de uso da aritmetica de precisao du- 
pla. possi'vel nos computadores IBM 4341 e no microcompu- 
tador CP-500, somente adia o instante em que a aproximacao 
permanece estacionana. 

Em todos estes casos, o instante em que o resultado perma- 
nece estacionirio e aquele no qual o valor da parcela a ser con- 
siderada passa a ser menor do que o erro de truncamento. 
valor de n , portanto. com um maior mimero de algarismos 
significativos do que a melhor aproximacao apresentada, nao 
poderd ser obtido pelos computadores (mesmo nos macrocom- 
putadores). Esta avahacao somente podera ser feita manual- 
mente, com lapis, papel e muita paciencia. 



TERCEIRO EXEMPLO 



Os dois exemplos anteriores apresentam uma visa"o pessi- 
mista sobre o problema da precisao. £ preciso levar em conta, 
entretanto, que estes exemplos foram propositadamente es- 
colhidos, por utilizarem valores que sao penahzados na repre- 
sentacao computational. Mas, consideremos agora um exem- 
plo onde € apresentada a visao otimista. 

Dentre os valores inteiros, todos aqueles menores que 
16.777.215 (CP-500) ou 4.294.967.295 (TRS-Color e Color 
64) tern representacao interna precisa em BASIC. Todos os 
inteiios acima deste maximo, em geral, seriam penahzados pelo 
erro de truncamento, com alguns algarismos significativos sen- 
do ignorados. Entretanto, existe uma infinidade dentre esses 
valores que nao sa"o penalizados e podem ser representados 
de maneira exata. 

Por exemplo, todos os valores multiplos de 256, quando 
convertidos para a base 2, apresentam os oito algarismos 
(bits) menos significativos iguais a zero. Na representacao com- 
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putacional, esses bits poderiam ser ignorados, sem que houves- 
se perda de algarismos significativos. Ja os multiplos de 4096 
apresentam na base bina'ria os 16 bits menos significativos 
iguais a zero. 

Como pode ser visto, 256 e 4096 sao potencias exatas de 2. 
O primeiro valor corresponde a 2 elevado a oitava potencia, en- 
quanto o segundo, a potencia 12. Assim sendo, de modo geral 
todos os valores que sao multiplos de uma potencia exata de 
2 sao valores favorecidos na aritme'tica empregada pela lingua- 
gem BASIC. 

Um calculo elemental em que estes valores privilegiados slo 
empregados e a determinacao do fatorial de um mimero n 
(produto dos mimeros naturais de um ate" n). Os valores de fa- 
torial de 10 e acima dele sa"o todos multiplos de 256 e, portan- 
to, sao favorecidos pelo BASIC. Usando o BASIC do CP-500, 
em precisao simples, foram obtidos os seguintes resultados: 

10! = 3.62880 E+06 12! = 4.79002 E+08 
11! = 3.99168 E+07 13! = 6.22702 E+09 

De uma maneira geral, podemos contar garantidamente no 
CP-500 apenas com sete algarismos decimals significativos. 
Mas, como se pode observar, o fatorial de 1 1 foi calculado cor- 
retamente, apesar de o resultado conter oito algarismos signi- 
ficativos. O fatorial de 12. apesar de ser um mimero privilegia- 
do por apresentar nove algarismos decimals significativos, jd e 
um valor aproximado. 

No BASIC do TRS-Color e Color 64, podendo contar com 
maior mimero de algarismos significativos, os resultados apre- 
sentados foram um pouco melhores: 



10! = 3628800 13! = 
11! = 39916800 14! = 
12! = 479001600 



6.2270208 E+09 
8.71782912 E+10 



Neste microcomputador, o fatorial de 12 ainda 6 apresenta- 
do sem o uso da notacao cienti'fica. fatorial de 13, cujo va- 
lor correto € 6.227.020.800, apesar de conter 10 algarismos 
decimals significativos, ainda e' calculado corretamente, contra- 
riando a regra geral que garante atd nove algarismos. Valores 
acima de 13 ja sa"o apresentados de maneira aproximada e seu 
calculo exato somente podera ser feito manualmente, com la- 
pis e papel. 

Bern, para concluir, gostaria de dizer que toda essa exposi- 
cao visou apenas a despertar a atencao do leitor para a precisao 
no calculo computational. Pelo fato de a precisao ser depen- 
dente dos valores nume'ricos considerados, se favorecidos ou 
penahzados pela representacao escolhida pela linguagem BA- 
SIC, fica d iff til, ate" quase impossivel, estabelecer regras que 
sejam universalmente aplicaveis. 

Apenas como recomendacSO, o leitor devera fugir sempre 
do problema do erro de truncamento se isso for possi'vel, como 
no caso do primeiro exemplo. Na sua impossibilidade, tentar 
minimizar ao maximo o seu efeito, ou concluir pela inviabili- 
dade da soluc£o computational, como no segundo exemplo. 
E, ap6s a obtencao dos resultados finais, somente considerar os 
algarismos significativos com os quais garantidamente se pode- 
ra' contar. 
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CURSOS DE APERFEICOMMENTO 



MAIS SUCESSO IWR A VOCE ! 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voc§ o mais moderno ensino 

tecnico programado e desenvolvido no Pai's. 



CURSO DE ELETRONICA DIGITAL 
E MICROPROCESSADORES 



Sao mats de 140 apostilas com informacoes compietas e sempre 
atualizadas. Tudo sobre os mais revolucionario CHIPS. E voce 
recebe. alem de uma solida formacUo teorica. KITS elaborados 
para o seu desenvolvimento prStico. Garanta agora o seu f uturo. 
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CEDM 20 KIT 
de Ferramentas. 
CEDM 78 KIT 
Fonte de Alimentacao 
5v/lA. CEDM 35 KIT 
Placa Experimental 
CEDM 74 KIT 
de Componentes. 
CEDM80 

MICROCOMPUTADOR 
280 ASSEMBLER. 




CURSO DE 
PROGRAMAQAO EM BASK 



Este CURSO, especialmente programado. oferece os 
fundamentos de Linguagem de Programacao que domina o universo 
dos microcomputadores. Dmamico e abrangente. ensma desde o BASIC 
basico ate o BASIC mais avancado. inclumdo nocoes basicas sobre 
Manipulacao de Arquivos. Tecnicas de ProgramacSo, Sistemas de 
Processamento de Dados. Teleprocessamento. Multiprogramacao e 
Tecnicas em Linguagem de Maquina. que propordonam um grande 
conhecimento em toda a area de Processamento de Dados. 





KIT CEDM 280 

BASIC Cientlfico. 

KIT CEDM 280 

BASIC Simples. 

Gabanto de Fluxograma 

E 4. KIT CEDM SOFTWARE 

Fitas Cassete com Programas. 




CURSO DC 
ELETRONICA E AUDIO 



Metodos novos e ineditos de ensino garantem um aprendizado 
pratico muito melhor. Em cada nova lica'o. apostilas ilustradas 
ensmam tudo sobre Amplificadores, Caixas Acusticas. Equalizadores. 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Capsulas 
e Fonocaptadores, Microfones, Sonorizacab, lnstrumentaca"o de Medidas 
em Audio. Tecnicas de Gravacao e tambem de Reparacao em Audio. 
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CEDM-1 - KIT de Ferramentas. CEDM-2 • KIT Fonte de Alimentacdo 
+ 15 15/1A. CEDM3 KIT Placa Experimental 
CEDM 4 KIT de Componentes. CEDM 5 - KIT Preamplificador 
Estereo- CEDM 6 KIT Amphficador Estereo 40w. 



Voce mesmo pode desenvolver um ritmo proprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado facil. E 
para esclarecer qualquer duvida, o CEDM coloca a sua disposigao uma 
equipe de professores sempre muito bem acessorada. Alem disso, voce 
recebe KITS preparados para os seus exerefcios praticos. 

Agil, moderno e perfeitamente adequado a nossa realidade, os CUR- 
SOS CEDM por correspondencia garantem condigdes ideais para o seu 
aperfeicoamento profissional. 



GRATIS 



Voc§ tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 

mesmo no Correio o cupom CEDM. 

Em poucos dias vocd recebe nossos catalogos de apresentapao. 



JTmM Avenida S«o Paulo, 718 - Fone (0432) 23-9674. 
IhJUJI I CAIXA POSTAL 1642 -CEP 86100 • Londrina - PR 
CURSO DE APERFEIQOAMENTO POR CORRESPONDENCIA 

Sollcito o mail rap i do ponfvel Informacoes sem compromisso sobre o 

CURSO de 

Nome 

Rua 

Cidade 

Bairro CEP 

M C 




Ler, entender e escrever programas, tanto 
em BASIC quanto em ASSEMBLER, sao ati- 
vidades bastantes recompensadoras quando 
quern as pratica dispoe de conhecimentos e 
instrumentacao adequadas. 

MICRO SI STEM AS sempre se preocupou com 
o leitor iniciante, e aqueles que sempre nos 
prestigiaram ganham, a partir desse numero, 
um presentao: um sistema utilitdrio capaz de 
fazer maravilhas e, ainda por cima, comen- 
tado passo a passo. Os limites de sua utili- 
zacao sao os limites alcancados pela prdpria 
imaginacao do usudrio. 

Entao, prepare o micro e maos b obra. 



Os programas para os micros 
com logica Sinclair tern se 
tornado, a cada dia. mais so- 
fisticados. Uma boa olhada 
nos ultimos niimeros de MICRO SIS- 
TEMAS ira" comprovar esse fato. 

Saber programar ou conhecer uma in- 
ninidade de linguagens nao e suficiente 
para escrever bons programas. £ preciso 
antes, ser usuario do equipamento para 
o qual se quer criar um sistema. Sob es- 
se aspecto, a linha Sinclair 6 a que tern 
apresentado os melhores resultados, da- 
da a grande quantidade de usuarios e a 
excelente capacidade de dialogo entre 
seus varios segrhentos. 

Mas nem tudo € um "mar de rosas". 
A literatura ainda e* escassa e nSo raro 
enganosa. Listas de instrucoes do As- 
sembler Z80 sao vendidas como "saiba 
tudo sobre a linguagem de maquina do 
seu micro", numa ni'tida exploracSo da 
boa fe do consumidor. Programas "fan- 
tisticos", vendidos a precos fabulosos e 
que podem ser encontrados nas revistas 
de computadores, tern causado uma re- 
tracfo na producSo independente de 
software. Ninguem quer se arriscar a um 
embate cujo resultado todos )i sabemos, 
ou melhor. ninguem est a disposto a en- 
cher os bolsos alheios e ver frustrada a 
sua iniciativa particular. 

Por outro lado, os fabricantes nao di- 
vulgam informacoes tecnicas na mesma 
velocidade e proporcSo com as quais 
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prometem novos e maravilhosos equipa- 
mentos (cada um mais desconhecido e 
misterioso que o outro). 

No final, o usuario acaba perdido e, 
se a sua forca de vontade nSo for gran- 
de, ele acaba desistindo de tudo, vende 
o micro e compra um videogame, pois, 
com certeza, nao tera" tantos aborreci- 
mentos e sera* decididamente muito mais 
divertido. 

Porem, para aqueles que acreditam 
ser possivel desenvolver um bom traba- 
lho com poucos recursos, MICRO SIS- 
TEMAS inicia nesse numero o projeto 
MICRO BUG. Trata-se de um sistema 
utilitdrio que sera desenvolvido, em lin- 
guagem de mdquina, passo a passo com 
o leitor, esclarecendo e discutindo as 
formas de programacao utilizadas e o 
conhecimento tecnico envolvido no pro- 
jeto. 

MICRO BUG, como produto final, 
se traduzira num programa para manipu- 
lar os dados e informacoes contidos na 
mem6ria do micro. Com ele ser£ possi- 
vel ler, alterar, interpretar, gravar, co- 
piar, criar, imprimir, compilar, reescre- 
ver, analisar e compactar programas, 
tanto em Basic quanto em Assembler. 

No entanto, antes de nos aventurar- 
mos nessa Jornada audaciosa, sera preci- 
so discutir alguns conhecimentos basicos 
e ate* mesmo alguns "hdbitos saudaveis", 
que serao indispensdveis no decorrer do 
projeto. 



O MANUAL DO EQUIPAMENTO 

Apesar de conter poucas informacoes, 
ser na"o raro incompreensfvel e, aldm 
disso, mal traduzido, o manual que 
acompanha o equipamento e. ainda as- 
sim, o primeiro grande elo entre o equi- 
pamento e o usuario e nunca deve ser 
esquecido em cima de uma estante ou 
dentro de uma gaveta. Ele deve ser lido 
infinitas vezes, pois a cada leitura certa- 
mente uma duvida se dissipa. Em espe- 
cial os ultimos capitulos, sobre a organi- 
zacSo do sistema, devem ser literalmente 
devorados e entendidos, caso contrano 
todo nosso esforco tera* sido em vao. 

A maior parte dos equipamentos da 
linha Sinclair (NE Z8000, TK82-C, 
TK83, CP 200 e TK85) possuem ma- 
nuals compatfveis entre si, ou seja, tra- 
duzidos do original do ZX81. Todos os 
exercfcios e exemplos, bem como a dis- 
tribuicao dos capitulos sao exatamente 
os mesmos, nao import an do sobre qual 
equipamento nos referimos. A figura 1 
apresenta uma tabela de compatibilida- 
de entre a nomenclatura das variaveis do 
sistema adotada pelos fabricantes. Esses 
nomes sao apenas mnemonicos e a fun- 
cao de cada endereco esta explicada cla- 
ramente no manual; portanto. uma boa 
leitura desse capftulo (VARIAVEIS DO 
SISTEMA) deve ser uma das primeiras 
providencias a ser tomada. 
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VARIAVEIS DO SISTEMA 

tabela de compatibil Ldade de 


nomenclatura 


_. ./Micro 

Slstemas 


endereco 
decimal 


endereco 
hexadecimal 


III /8000 


CP 200 


IK B2C 


16384 


4000 


ERR NR 


ERR0- 1 


CODR 


16385 

16386/87 

16388/89 


4001 

4002/03 

4004/05 


FLAGS 

ERRSP 

RAMTOP 


FLAGS 
RL TGSB 
MKMTOP 


BAND 
ENSP 
RTP 


16390 
16391/92 


4006 
4007/08 


MODF 
PPC 


M0D0 


M0D0 
CPB 


16393 

16394/95 

16396/97 


4009 

400A/0B 

400C/0D 


VERSN 
EPPC 
FILE 


VERSAO 
NUML I 
MAPTELA 


VFRSN 
LPC 
DF ILL 


16398/99 

16400/01 
16402/03 


400E /0F 
4010/11 
4012/13 


OF CC 

VARS 

DEST 


VARS 
DEST 


POSPR 

VARS 

DESI 


16404/05 
16406/07 


4014/15 
4016/17 


ELINE 
CH ADD 


LID1GIT 
PROX-CAR 


ELINE 
ENCAR 


16408/09 


4018/19 


X PTR 


XPTR 


ENSX 


16410/11 


401A/1B 


STKBOT 


SIKCOM 


PILFUN 


16412/13 


401C/1D 


STKEND 


STKI IM 


PILFIM 


164 14 
16415/16 


401E 
401F/20 


BERG 
MEM 


REGIB 
MEM 


CALREG 
MEM 


16417 

16418 

16419/20 

16421/22 

16423 


4021 

4022 

4023/24 

4025/26 

4027 


n usado 
DFSZ 
S_T0P 
LASTK 


n usddo 
DF-SZ 
PROG TOP 
ULTIMAT 


n usado 
DFSZ 
L10P 
ULTK 


16424 

16425/26 

16427/28 


4028 

4029/2A 

402B/2C 


MARGIN 
NXTLIN 

OLDPPC 


MARGE N 
PRXLIN 
LINCONT 


HARG 
PXLN 
VCPB 


16429 

16430/31 

16432/33 

16434/35 

16436/37 


4020 

402E/2F 

4030/31 

4032/33 

4034/35 


FLAGX 

STRLEN 

T_ADDR 

SEED 

FRAMES 


FLAGX 

COMSTR 

ENDSTX 

SEED 

FRAMES 


BANDX 

LENCA 

SXEN 

SEMT 

QUAD 


16438 
164 39 
16440 


4036 
4037 
4038 


COORDS 
PR CC 


C00RDX 
C00RDY 
LPBYTE 


CORDX 
CORDY 
PR-CC 


16441 
16442 
16443 


4039 
403A 
40 3B 


SPOSN 
CDF LAG 


COL UN A 

LINHA 

ELAGCD 


COL PR 
LINPR 
BANCO 


16444 a 16476 


403C a 405C 


PRBUFF 


BUFIMP 


PRBUf 1 


16477 a 16506 
16507/08 


4050 a 407A 
407B/7C 


MEMBOT 
n usado 


MEMBOT 
n usado 


ME MBO 
n usado 



Figura 1 - Uma tabela de compatibilidade de varidveis que deve ser mantida sempre d mdo 



Ainda a respeito de leituras, alguns 
artigos publicados em MICRO SISTE- 
MAS merecem ser relidos atenciosamen- 



te, pois contem boa parte da teoria e in- 
formacoes tecnicas de que iremos pre- 
cisar. (Veja na bibliografia). 



Com relacfo a livros, nao € aconse- 
lh^vel gastar fortunas neles, pois a maio- 
ria n5o contem nada ale"m de listagens 
das instrucoes do Z80; pore'm se o leitor 
desejar aprofundar-se no Assembler, o 
unico livro digno de recomendacSo 6 o 
Z80 ASSEMBLY LANGUAGE PRO- 
GRAMMING (Lance A. Leventhal - Os- 
borne/McGraw Hill). Trata-se de um ma- 
nual tecnico, pore'm completo e bastan- 
te claro, mesmo sendo em Ingles. 

EXPANSOES DE MEMORI A 

Ainda ha* muita confusa"o no mercado 
a respeito das expansdes de memdria e 
muita "terra prometida" nSo i de fato 
encontrada. Ji foi dito (0 SISTEMA 
OPERACIONAL DO ZX81, MS n925) 
que a quantidade maxima de RAM ado- 
tada pelo projeto da SINCLAIR 6 de 
16 K. Isso nao significa que seja impos- 
sfvel implementar mais do que 16 K, po- 
rem quern assim o fizer poderd encon- 
trar sdrios problemas operacionais pela 
frente. 

O primeiro grande problema diz res- 
peito a efetiva quantidade de memoria 
que poderd ser utilizada. Para ficar bem 
clara a explica?So, acompanhe-a pela fi- 
gura 2, onde dividimos os 64 K, que e o 
maximo de enderecos permitidos por 
uma UCP de 8 bits e enderecamento de 
2 bytes, em grupos de 8 K. 

O primeiro grupo e a ROM conten- 
do o Sistema Operational. Nesse local 
jamais podera" ser colocada a RAM dispo- 
nfvel, pois nesse caso o micro simples- 
mente nao funcionaria. No grupo 2 hi 
um espaco vazio onde na"o existe absolu- 
tamente nada, apenas um "reflexo" do 
Sistema Operational, fi possivel colocar 
nesse local a memdria RAM, pore'm ela 
estard fora do sistema e somente servi- 
li para rotinas em linguagem de maqui- 
na ou arquivo de dados operado pelas 
instrucoes POKE e PEEK. 

Os grupos 3 e 4 compreendem a me- 
m6ria RAM normal de 16 K e 6 nesse es- 
pa^o que estarao as variiveis do sistema, 
o programa em BASIC, o arquivo de 
vfdeo, as variaveis do programa, o stack 
do Z80 e as rotinas Assembler. Os gru- 
pos restantes (5, 6, 7 e 8) nao estao li- 
vres para utilizacao e se neles for colo- 
cada a mem6ria RAM, ela somente po- 
dera ser utilizada para armazenar va- 
ridveis. Dessa forma, equipamentos com 
32K, 48K ou mesmo "64K" de RAM 



8192 



16384 



24576 ■ 



32768 



40960 



49152 



57344 



1 ROM 
SISTEMA 
OPERACIONAL 


2 


p-i'. am 4 rah 

EXPA>6S0 DE 16K 


5 


6 


7 


8 



65536 



2000 



4000 



£000 



A000 



C000 



E000 



0000 



Figura 2 -A distribuicdo do enderecamento da Z80 e as reais areas de aproveitamento da memdria RAM 
MICRO SISTEMAS, abril/84 
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nao importa o tamanho de seu problema, 
nds temos a soluoao na medida exata ! 




• LINGUAGEM BASIC 

• 16KDEMEMORIA 

• VELOCIDADE DE 
TRANSFERENCE 14 VE- 
ZESMAISRAPIDA 



CP-300 




• MODULAR 

• LINGUAGEM BASIC 

• 48KDEMEMORIA 

• COMPATI'VEL COM 
SOFTWARE DO CP-500 




LINGUAGEM BASIC 
48 K DEMEMORIA 
ATE 4 DRIVES 
SAIDA PARALELA SE- 
RIAL 



LVENDAfr 




VELOCIDADE 100 CPS 
MATRIZ9x 7 
INTERFACE: 
PARALELA 
SERIAL 




MICRO: 



LINGUAGENS COBOL, 
BASIC E FORTRAN 

64 K DE MEMORIA 
DUAS UNIDADES DE 
DISCO 



IMPRESSORA: 

• VELOCIDADE 130 CPS 

• MATRIZ 7x9 

• 132COLUNAS 

• ORIGINAL +5 COPI AS 



VELOCIDADE 200 CPS 
MATRIZ 7x9 
INTERFACE: 
PARALELA, 
SERIAL 



• 8PENAS 

• Area de tracado 

10 x 15 POL. 

• INTERFACE RS-232 




ACESSORIOS 

SOFTWARE • MESAS • DIS- 
QUETES • ARQUIVOS • 
FORMULARIOS CONTI- 

NUES • ESTABILIZADORES 
DE TENSAO • UNIDADES 
DE DISCO FLEXIVEL • ETC. 



APROVEITE! 

promocGes especiais • 
financiamento • lea- 
sing • consorcio *car 
toes de credito: credi- 
card, nacional, ello. 



filcres 

Filcres Importapao e Representapoas Ltda. 

Rua Aurora, 165 - CEP 01209 - Sao Paulo - SP 

Telex 1131298 FILG BR - PBX 223-7388 - Ramai$2.4, 

12. 18. 19 - Diretos: 223-1446, 222-3458, 220-5794 a 

220-9113 - Reembolso - Ramal 17 Direto: 222-0016 - 220-7718 



MICRO BUG 



somente terao disponfVeis 1 6K para pro- 
gramas BASIC ou Assembler. 

De fato, os grupos 5, 6, 7 e 8 JA- 
MAIS poderSo center programas em 
BASIC ou Assembler pelo simples fato 
de que nessa regiao eles nao funciona- 
rao. A expticacao tecnica para esse fato 
serf dada no tdpico ASSEMBLER 
DO SINCLAIR. 



ENDERECO E CONTEUTX) 

Todo usuirio que pretende avancar 
um pouco mais na programacSb deve 
dominar plenamente os conceitos de en- 
dereco e conteudo, pois sao eles os fun- 
damentos da funcionalidade do compu- 
tador. 

Entende-se por endereco um local da 
memdria capaz de reter uma certa quan- 
tidade de bits (ou seja, zeros e uns). Co- 
mo cada grupo de 8 bits configura um 
byte, entao um endereco 6 um local on- 
de pode ser armazenado um byte e, des- 
sa forma, um determinado endereco po- 
de ter o seu conteudo na forma de um 
valor no intervalo entre e 255. 

Os bytes, nesse intervalo, podem sdg- 
nificar uma serie de coisas, dependendo 
do contexto em que forem bdos. Eles 
podem ser apenas um valor de referen- 
da, um numero de linha de programa 
BASIC, uma letra a ser impressa, um 
conjunto de flags ou uma instrucao As- 
sembler, ou ainda parte de um valor nu- 
merico qualquer. 

Saber o que cada byte esti represen- 
tando em um dado momento, ou em um 
determinado local da mem6ria, nada 
mais 6 do que entender melhor o fun- 
cionamento da miquina. 



caracteristicas dessa base, e para isso a 
pr6pria MICRO SISTEMAS ja" publicou 
excelentes artigos. 

Para aqueles que querem se aprofun- 
dar no Assembler, entao a base a ser uti- 
lizada deve ser a hexadecimal, pois pro- 
gramar com numeros em hexadecimal 6 
sensivelmente mais faal do que em de- 
cimal. 

Como ja" vimos, um byte represen- 
ta um valor entre e 255. Vejamos en- 
tao alguns desses valores nas tres bases 
envolvidas: 



binario 

00000000 
00000001 
00000010 
00001010 
10101111 
11111111 



decimal 



1 

2 

10 

175 

255 



hexadecimal 

00 
0! 
02 
0A 
AF 
FF 



Como podemos notar, com 8 bits 
nao 6 possivel representar um valor 
maior do que 255 porque nao ha" mais 
"casas" para serem ocupadas, e se obri- 
garmos o Z80 a somar 1 ao valor 255, o 
resultado serf zero e todo o processo se 
repetirf. 

Para a manipulagao de valores maio- 
res serf preciso lancar mao de 2 bytes, e 
dessa forma a faixa de valores ficarf 
bem mais extensa. Veja o exemplo a se- 
guir: 

00000001 00000000 = 256 = 0100 

podemos, e devemos, dividir tambe'm os 
numeros decimals pelo m6dulo 256 e o 
resultado serf o apresentado na figura 3. 



binario decimal 

00000001 00000001 1 

00000001 00000010 1 

00000111 11000000 7 

01000000 10000010 6*f 

11111111 11111111 255 255 



1 
2 
192 

130 



hexadecimal 

01 01 
01 02 
07 C0 
ty 82 
FF FF 



valor 

257 

258 

1984 

165H 

65535 



Figura 3 



NOMEROS E BASES NUMfiRICAS 

Quern programa apenas em BASIC 
nao precisa se preocupar com bases nu- 
m ericas, por em o usuano que busca um 
relacionamento mais ultimo com o com- 
pu tador certamente tera" que se enten- 
der com pelo menos mais duas bases. 
binario nao requer um conhecimento 
profundo, visto que o proprio compu - 
tador se encarrega das conversoes envol- 
vidas, porem 6 necessario ver algumas 
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Novamente, pore"m, chegamos ao li- 
mite de valores e dessa vez o limite 6 pra 
valer. Se prestarmos atenclo ao numero 
65535, veremos que se considerarmos 
o zero como um valor, entao com dois 
bytes poderemos representar 65.536 va- 
lores. Dividindo essa quantidade por 
1.024, que 6 o mddulo KILO BYTE, o 
resultado sera" 64K. Isso explica o fato 
do Z80 s6 permitir o enderecamento 
de 64K de memdria pois em toda ope- 
ra9ao com enderecos ela usa sempre dois 
bytes. » 



Era 
so o que 
faltava 

Agora, com as interfaces 

TL 85 e TL 300, voce ja pode 

ligar o seu micro TK 85, TK 83 

e CP 300 em uma impressora. 




TL85 



Interface que complementa 
seu TK 85 ou TK 83. ampliando largamente 
a aplicacSo do mesmo. 

• aciona qualquer impressora ou maquina 
de escrever eletrSnica, com comunica- 
c3o paralela Centronics; 

• aceita todos os comandos relacionados 
com impressora (Copy, Llist, Lprint); 

• gera maiusculas, minusculas, acentos 
e controles do ASCII, diretamente do te- 
clado; 

• permite a conexSo de outras expansoes. 

Versao com Editor Facllimode usar; orien- 
tado para lingua portuguesa; gravado em 
EPROM; marginacao automatica; separa- 
gao siiabica e outros recursos. 




TL300 



Acionada pelos comandos de irnpres- 
s5o, a interface TL 300 possibilita a ligagao 
do CP 300 a qualquer impressora ou ma- 
quina de escrever eletrdnica. com comuni- 
cacao paralela Centronics. Permite, ainda, 
a expansSo do sistema, oferecendo condi- 
gOes para que o micro aceite outros perife- 
ricos. 



t 



Tekno 
Logica 



Produtos e Servi?os para a 

Informatica Ltda. 

Av. S5o Pedro, 1062 • Fone (0512) 42-8549 

90000 Porto Alegre - RS 

Distribuidores 

SSo Paulo: Pro-Controle Com. e Controle 

Ltda. - Fone (0192) 32-7364 - Campinas 

Goias e Distrito Federal: 

New Computadores Comercio e 

Representagdes Ltda. 

Fone (061) 274-5060 - Brasilia 
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M 

modulo operaclonal 



EDITOR BASIC 



MONITOR ASSEMBLER 



S C H 

sjtenw gerenciador de 

modules 



32768 



MM 



DISASSEMBLER 



COMPILADOR 
ASSEMBLER 



MB ASIC 



Figura 4-0 topo da RAM e o posicionamento do Micro Bug. O RAMTOP foi alterado para receber as rotinas e mante-las fora do sistema, 
protegidas at 6 mesmo do NEW 



A facilidade da base hexadecimal esta" 
no fato de que com ela nao 6 preciso 
fazer contas para representar um nurne- 
ro de dois bytes, ou seja, enquanto 
1984, em decimal, e" igual a 7*256+192, 
ou melhor, INT (1984/256) seguido de 
1984-INT(1984/256)*256, em hexade- 
cimal o mesmo numero 07 CO 6 igual a 
07 e CO. 

O ASSEMBLER DO SINCLAIR 

A programacao em linguagem de ma- 
quina 6 cheia de nuances e sutilezas, que 
variam de equipamento para equipamen- 
to. Conhecer a linguagem Assembler nao 
credencia ninguem a escrever programas 
em equipamentos com 16gica Sinclair, 
ou mesmo em qualquer outro equipa- 
mento, visto que e" fundamental conhe- 
cer a fundo a sistemitica da maquina em 
questSo. Na realidade, o Assembler nao 
6 uma linguagem para ser aprendida e 
sim entendida. Qualquer pessoa capaz 
de somar e subtrair pode escrever pro- 
gramas em Assembler, bastando para is- 
so muita paciencia, pois 6 a unica coisa 
exigida do programador. 

De resto, 6 suficiente uma lista das 
instrucSes disponiveis, o que, diga-se de 
passagem, consta do manual do equipa- 
mento. 

Vejamos entao algumas particularida- 
des important issimas. Assembler pos- 
sui por volta de 694 instmcoes oficiais 
e mais umas 438 nSo divulgadas pelo fa- 
bricante (ver artigo AS INSTRUgOES 
SECRETAS DO Z80, Jorge Mendes - 
MS 25) pore'm nem todas elas poderao 
ser utilizadas. fato da UCP, nos mi- 
cros Sinclair, ser obrigada a fazer todo o 
trabalho obrigou os programadores a 
criar rotinas complexas e a utilizar de 
forma bastante criativa todas as poten- 
cialidades do Z80. preco pago por isso 
foi uma reducSo significativa das instru- 
c6es que realmente podem ser utiliza- 
das em programas criados pelos usua- 
rios. 
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Boa ou ma* solucSo, o fato 6 que o 
Assembler do Sinclair tornou-se bastan- 
te restrito e impos ao usuario a necessi- 
dade de uma boa dose de criatividade 
para contornar os obstaculos. Por outro 
lado, ele tornou-se uma linguagem fa- 
cilima de ser entendida. 

Dois importantes grupos de instru- 
96es, as instrucoes de enderecamento in- 
dexado DC e IY, nSo podem ser utiliza- 
dos quando um programa Assembler 
opera no modo SLOW, pois o sistema de 
impressao no video os utiliza para gerar 
e manter a imagem na tela da televisao. 
Os registradores alternatives tambdm 
merecem um cuidado muito especial 
pois a sua utilizacao pode provocar a 
perda de controle de todo o sistema. 

Outro ponto importante 6 que o 
Z80 nunca podera estar em modo de 
execucfo ou procura de instruclo 
(FETCH) acima do endereco 32.767, 
pois esta 6 a caracteristica da interrup- 
cao geradora do vfdeo. Na realidade, o 
que ocorre e" que , para formar uma ima- 
gem na tela de video, o sistema obtem o 
valor de D-FLLE (16396/97), "seta" o 
bit 15 (A15=l) e executa operacoes de 
"refresh" ate - formar uma imagem. Des- 
sa forma, se a maquina for acidental- 
mente colocada para execucao de uma 
instrucao Assembler ou linha de progra- 
ma BASIC acima dos 16K de RAM, ha- 
vera" perda total de controle do sistema. 



MICRO BUG 



MICRO BUG formara" um sistema 
modular de manipulacSo da mem6ria do 
micro. Ele sera composto por um geren- 
ciador (SGM) e por m6dulos especifi- 
cos. A figura 4 apresenta o esquema de 
funcionamento de todo o sistema. 

equipamento padrao para o funcio- 
namento do MICRO BUG sera" um mi- 
cro com expansao de 16K de RAM e o 
sistema ocupari o espaco no topo da 
mem6ria (RAMTOP). O SGM mantera\ 
nessa area, as principais rotinas funrio- 
nais bem Como os comandos de grava- 
cao e leitura dos modulos. Ale'm disso, 
possuird alguns comandos especificos 
que o tornarao, sozinho, um potente 
monitor Assembler. 

Toda a estrutura funcional do MI- 
CRO BUG serd apresentada e discutida e 
no final o usuario podera\ ele mesmo, 
construir o seu modulo operacional es- 
pectfico. 

£ importante salientar que, dada a 
diversidade de formas com as quais os 
programas em Assembler se apresentam, 
esse trabalho servird como padronizacao 
de todo o material que vier a ser publi- 
cado pela MICRO SISTEMAS. 



Este projeto vem sendo desenvolvido pels 
equipe do CPD de MICRO SISTEMAS, sob a 
coordenacSo de Rene to Degiovani. 
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microcomputador Rinpjo R470 e, disparado, o melhor em sua caiegoria. E mais rapido na execucao de programas, oferece ampias possibilidades de 
expansao e Gounico micro totalmente projetado e desenvolvido no Brasil, aprovado pela SO • Secretana Especial de Informatics. 

Um verdadeiro herdi nacional. 

Voce pode contar com ete para resolver probtemas pessoais ou profissionais. ou simolesmente para sediverlir, atravesde vartos jogos disponiveis em 
cartuchos ou Was, 

Alias, cartucho eoque nao falta parao Ringo. Etee compatfvel com lodos os programas do famoso Sinclair e possui equipamentos perifericos 
exelusivos que ampliam muito a sua capacidade. 

Compare o Ringo R-470 com os simiiares e comprove: nunca apareceu um mrcra pessoal tao professional porestas reoondezas. 
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Enxadrista experiente. Luciano Nilo de An- 
drade ja" escreveu para os jornais "Correio da 
ManhS". "Data News" e "Ultima Hora" e pa- 
ra a revista "Fatos & Fotos" Luciano 6 econo- 
mista, trabalhando no Ministe'rio da Farenda. 
no Rio de Janeiro. As opinides e comenta'rios 
de Luciano Nilo de Andrade. bem como as 
ultimas novidades do Xadrez jogado por com- 
putations, as tar So sempre presentes em 
MICRO SISTEMAS. 



Elite A/S vence 
o Campeonato Mundial de Micros 



No exemplar de fevereiro, MICRO SIS- 
TEMAS nP 29, divulgamos nesta se- 
cao as primeiras notlcias obtidasa res- 
peito do III Campeonato Mundial de 
Micros. Agora retornamos com a sua comple- 
mentacao. 

OEIiteA/S, da Fidelity Electronics, EUA, 
venceu o III Campeonato Mundial de Progra- 
mas de Xadrez para Micros, realizado em Bu- 
dapeste, Hungria, no perfodo de 13 a 20 de 
outubro de 1983. Esta e a terceira vitdria dos 
programas do casal Spracklen. Eles tamWm 
venceram os dois eventos anteriores com mi- 
cros da Fidelity, sempre com a ajuda do Ml 
Baczynskyi, dos EUA. 

A vitdria do Elite nao foi sem sustos. Esca- 
pou de derrota que parecia certa frente ao 
Novag X na 4? rodada (ver diagrama A) e de 
outra mais sutil contra o Super Constellation 
(ver diagrama B). 

Os resultados individuals do Elite A/S fo- 
ram: 1. a rodada, de brancas, venceu o Mephis- 
to Excalibur; 2? rodada. de pretas, venceu o 
Logichess 2.2; 3 a rodada, de brancas, venceu 
o Mephisto X; 4? rodada, de brancas, empa- 
tou com o Novag X; 5? rodada, de pretas, ven- 
ceu o 2001 X; 6- a rodada, de brancas, venceu 
o Super Star X. 

t curioso notar que o Elite custa, aproxi- 
madamente, metade do Prestige, mesmo usan- 
do o mesmo programa e sendo do mesmo fa- 
bricante. Elite tern 3 MHz e o Prestige, com 
seus 4 MHz, ficou em quinto lugar. Coisasdo 
sistema sufco de emparceiramento? O terceiro 
aparelho da Fidelity a competir foi o Sensory 
9, que, por sua vez, classificou-se em 1 2P lugar. 

CLASSIFICACAO FINAL 

Dezoito programas participaram do cam- 
peonato. Cada fabricante podia competir com 
ate tres modelos diferentes. Foram realizadas 
sete rodadas e o emparceiramento foi feito pe- 
lo sistema sui'co. 

Campeao - Elite A/S, da Fidelity Electro- 
nics, EUA; programadores: Cathe e Dan Spra- 
cklen. auxiliados pelo Ml Boris Baczynskyi, 6 
pontos. 2P - Mephisto X, de Hagenere Glaser. 
Al. Fed.; programadores: Elmar Hener e Tho- 
mas Nitsche, auxiliados pelo enxadrista Ossi 
Weiner, 5 pontos (+ 29). 3? - Novag X, da 
Novag, Hong Kong; programadores: David Kit- 
tinger, EUA, auxiliado pelo Ml Scott Mc Do- 
nald. 5 pontos (+ 27,5). 4P - Super Constella- 
tion, da Novag, Hong Kong, 5 pontos (+ 25). 
5P - Prestige, da Fidelity Elect., EUA, 4,5 pon- 
tos. 6P - Chess 2001, da Intelligent Software, 
Hong Kong; programadores: David Levy e Kevin 

MICRO SISTEMAS, abril/84 



O'Connel, 4 pontos (+ 26). 7P - G6dion X, 
4 pontos (+12,5). 8P - Chess 2001 X, da In- 
telligent Software, Hong Kong, 3,5 pontos 
(+27). 9P - Mephisto Y, 3,5 pontos (+ 24). 
10? - Mephisto Excalibur, 3 pontos (+ 29,5). 
11P - Constellation, 3 pontos (+ 24). 12P - 
Sensory 9, 3,5 pontos (+ 23,5). 13P - Super 
Star X. 3 pontos (+ 22). 14P - Micromurks, 
2,5 pontos. 15P - Logichess 2.2, 2 pontos 
(+ 26). 16P - Chessmaster, 2 pontos (+ 21). 
17P - 66 Cyrus X, 2 pontos (+ 15,5). 18P 
— Labirint, 0,0 pontos. 

AVITORiADOELITE 

Elite A/S x Novag X 




Diagrama A 
- Posicdo 
depots de 70 
-..Cg4 

As pretas, que poderiam ganhar com faci- 
lidade, empataram depois de 71— C7C+ R2B; 
72 - C5B C4R;73 - C3R P5C;74 - C5B R3C; 
75 - C3C R2B; 76 - C5B R1C; 77 - R3B 
R2B; 78 — R4D e acabaram empatando por 
repeticao de posicao. 

Elite A/S x Super Constellation 
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Diagrama B 



As pretas empataram depois de 82 — ... 
R3D(?); 83 - B4B R5R; 84 - B1C Rf5(?). 
Perdem a segunda oportunidade de iniciar a II- 
nha ganhadora. 85 - B6C R3C; 86 - B4D R4B, 
87 - B6C e a partida terminou empatada por 
repeticao. Como poderiam as pretas ganhar? 
Simplesmente jogando 82 - ... R6BW; 83 - 
T2B+ DxT+; 84 - BxD RxB, 85 - P5B 
R6B; 86 - R1C ou 86 - R8T RxP. As pretas 
tamWm ganhariam depois de 82 — ... P4B\. 
83 — R1T R6B\, entrando na variante anterior. 



UMA PEQUENA COMBINAQAO 

Prestige x Super Constellation 
Budapeste, 1984 



Diagrama C 
-As brancas 
jogam e 
iniciam 
irresistivel 
combinacdo 
(solucdo no 
final do 
artigo) 



O CALCANHAR DE ACHILES 

Sem dispor de tempo caseiro, ilimitado. os 
micros deixam escapar vitdrias como qualquer 
capivara. E: na fase final do jogo que setorna 
mais flagrante esta debilidade. Verdadeiro cal- 
canhar de Achilesl 

Constellation x Prestige 
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Diagrama D 

As pretas acabaram de jogar 69 - ... P4CI 
e as brancas continuaram com 70 — P5T(?) 
R7T; 71 - R4C R7C; 72 - R5B RxP; 73 - 
R6C R5B; 74 - RxP P5C; 75 - R7C P6C. 
76 - P6T P7C; 77 - P7T P8C = D +; 78 - 
R7B D7T+; 79 - R6C D5D e ganham. As 
brancas poderiam empatar facilmente com 70 
- PxP\ PxP; 71 - P4C\ R5B; 72 - R2T RxP, 
73 - R2C, conseguindo a oposicao e o empate. 



Solucao 
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Calcular as dosagens certas dos produtos necessa'rios 

para manter a &gua de sua piscina sempre 

limpa 4 o que faz este programa para a linha TRS-80 



CTP/M 

ou Como Tratar Piscinas no Micro 




Nada melhor do que ter uma pis- 
cina em casa, mas quando ela 
comeca a escurecer, surge uma 
preocupacSo: trocar a agua ou 
fazer urn bom tratamento? Trocar a 
agua envolve maiores gastos e ainda por 
cima a reposi?ao e demorada, donde se 
conclui que e bem mais vantajoso optar 
pelo tratamento. 

No tratamento, porem, as dosagens 
tern que ser corretas, variando conforme 
o volume de agua da piscina, e af surge 
outro problema: voce terd que calcular 
direitinho as dosagens de cada produto 
de acordo com as dimensoes de sua pis- 
cina - e no lapis isso se torna muito 
cansativo. 

Mas para todo problema sempre 
existe uma solucao. Se voce tern um mi- 
cro compativel com o TRS£0, com este 
programa bastard entrar com as medidas 
de sua piscina e seu computador fara" os 
c&culos por voce. Sao eles: 

• Dosagens dianas ou semanais — Para 
evitar que a agua fique turva ou verde. 

• DecantacSo para aspirar — Para recu- 
perar a agua ji infestada pela sujeira. 

• CorrecSo do PH - Com um estojo de 
teste £ feita a medicSo do PH. O nivel 
ideal 6 entre 7.2 e 7.6: abaixo de 7.2, o 
cloro torna -se instavel, sendo consumido 
muito rapidamente; acima de 7.6, a agua 
6 alcalina e o poder anti-bacteria do clo- 
ro 6 reduzido. 

• Superdosagens - Quando a agua esti- 
ver verde (com algas) ou em desuso por 
muito tempo. 

Rode o programa que ele e" auto-ex- 
plica tivo e ... bom fim de semana, com 
muita sombra e dgua fresca! 



Fernando C4sar de Oliveira Galli 6 estudante 
de CiSncias Co nt 6 be is na Instituigao Moura 
Lacerda de Ribeirao Preto. Aprendeu a I'm- 
guagem BASIC em seu CP-500, que possui hi 
oito meses. 
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Fernando Cesar de Oliveira Galli 



Tratamento de piscinas 



10 I*********************************************************** 
20 '********** TRATAMENTO DE PISCINAS - CP-500 ************ 
30 '* FERNANDO CESAR DE OLIVEIRA GALLI * 

40 '* R. FRANCA 1047 - RIBEIRAO PRETO (S.P) CEP 14100 * 
50 '*********************************************************** 

60 CLEAR 1 000 :DEFSTRA-K:CLS:GOSUB670 

70 CLS:GOSUB720:PRINT@274,"Formato de sua piscina ? 

80 PRINT@rt01 , "( 1 )";STRINGS( 16,95) ; M RETANGULAR 

90 PRINT@529,"(2)";STRING$( 16,95) ;" OVAL 

100 PRINT@657,"(3)" ; STRINGS ( 16,95) ;" REDONDA 

110 PRINT@f786,"Entre c/ numero correspondente 

K=INKEY$:IFK="",120ELSEIFK " 1 "ORK> " 3" , 1 1 

CLS : Y=VAL ( K ) :ONYGOSUB260 , 310,360 

CLS:M=INT(M) :IFM<-0,60 



120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 



PRINTTAB( 10)" <1> DOSAGENS DIARIAS E SEMANAIS 

PRINTTAB( 10)" <2> DECANTACAO P/ ASPIRAR 

PRINTTAB( 10)" <3> CORRECAO DE PH 

PRINTTAB (10)" < 4 > SUPERDOSAGENS 

PRINTTAB( 10) " <5> NOVO CALCULO 

PRINTTAB(IO)" <6> FIM" ;TAB( 38 ) "*** VOLUME "M" m3 *** 
: POKE 169 16, 7 



PRINTSTRING$(64,4 5 

PRINTS© 3 5, "Sua opcao > > 

J=INKEY$:IFJ=""ORJ<"1"ORJ>"6",230 
CLS:Z=VAL(J):ONZGOSUB400,450,500,610,660,660 

2 50 GOTO220 

260 PRINT@62, "PISCINA - RETANGULAR" :GOSUB7 40 

270 PRINT@Q89,"Comprimento (em metros ) " ; : INPUTN 

280 PRINT@617, "Largura (em metros )";: INPUTO 

290 PRINT@645,"Profundidade (em metros) ";: INPUTP 

300 M=N*0*P: RETURN 

310 PRINT@62, "PISCINA - OVAL" :GOSUB740 

320 PRINT@>389, "Diametro maior (em metros) ";: INPUTN 

3 30 PRINT@5 17, "diametro menor (em metros) ";: INPUTO 
340 PRINT@645,"Profundidade ( em metros) ";: INPUTP 
350 M=N*0*P*.785:RETURN 

360 PRINT@B2, "PISCINA - REDONDA" :GOSUB740 

370 PRINT@D89, "Diametro (metros )";: INPUTN 

380 PRINT@517,"Profundidade (metros )";: INPUTO 

390 M=N/2*N/2*3. 1 4 1 6*0 rRETURN 

400 PRINTTAB( 16) "DOSAGENS DIARIAS E SEMANAIS 

410 PRINT: PRINT"ALGISTATICO. . "M*14" CC/ Dosagem inicial 

420 PRINT: PRINT" ALGISTATICO. . . "M*6" CC/semana 

430 PRINT: PRINT"CLORO LIQUIDO. "M*25" ml/dia 

4 40 RETURN 



450 PRINTTABt 16) "DECANTACAO PARA ASPIRAR 

460 PRINT: PRINT"SULFATO DE ALUMINIO "M*60" gramas 

470 PRINT :PRINT"BARRILHA LEVE "M*30" gramas 

480 PRINT: PRINT" Dissolva os produtos em recipientes separados, 

espalhe unif ormemente, apos 24 horas faca a aspiracao. 

490 RETURN 

500 PR INTTAB( 16) "CORRECAO DE PH": PRINT 

510 INPUT"Qual o PH atual ";T 

520 IFT<6.5,PH=15.8ELSEIFT<=6.8ANDT>=6.5,PH=12.7 

530 IFT<7.2ANDT>6.8,PH=9.5 

540 IFT>8.4,PH=19ELSEIFT<=8.4ANDT>=8,PH=12.7 

550 IFT<8ANDT>7.6;PH=6.5 

560 IFT<=7.6ANDT>=7.2,G="PH NORMAL":H="" 

570 IFT>7.6,G="PH ALCALINO" : H="grs/Barr . leve" 

580 IFT<7.2,G="PH ACIDO " : H="grs/Sulf . aluminio" 

590 PRINT : IFH= " " , PRINTGELSEPRINTG , PH*M ; H 

600 RETURN 

6 1 PRINTTAB (16)" SUPERDOSAGENS 

620 PRINT: PRINT"ALGICIDA. .. . "M*16 M CC 

630 PRINT"CLORO LIQUIDO"M*50" CC":PRINT 

640 PRINT" Use superdosagens de algicida p/ matar as algas ;remo 

va-as por aspiracao; use cloro p/ desinfetar e clarear. 

650 RETURN 

660 POKE 16916,0: IFZ=5 , 70ELSECLS : END 

670 PRINTCHR$(23) : A=STRING$ ( 32 , 35 ) : FORX= 1T01 4 :PRINT; A:NEXT 

680 Z=400:FORX=1T04:PRITN@Z,STRING$( 16, 128) ; :Z=Z+64:NEXT 

690 PRINT@470; "Tratamento" ; :PRINT@534; "de piscina"; 

700 FORT=1T03:X=302:GOSUB750:PRINTCHR$(28) ; :X=300 :GOSUB750 

710 PRINTCHR$( 23) ; :NEXT: RETURN 

720 FORQ=15498T015541 :POKEQ, 143 

730 POKEQ+768,143:NEXT:RETURN 

740 PRINT@274,"> > Entre c/ as medidas" : RETURN 

750 FORX=0T0400:NEXT: RETURN 







Microcenter Informatica Ltda 

Rua Dr. Satamini 12-A — Tijuca^f 
TEL 228-0593 e 264-0143 
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^ PAGAMEIMTO. 




A Nasajon Sistemas, uma empresa 
especializada no desenvolvimento de 
programas, esta lanpando no mercado, 
em carater exclusivo, um completo 
sistema de Folha de Pagamento para 
microcomputadores dos tipos 
DGT 1000, CP 500, TRS 80 e outros. 
Relatorios emitidos: Relacao de Em- 
pregados, Quadro de Horarios, Folha 
de Pagamento, Resumo da Folha, Re- 
lacao de FGTS, Guia de FGTS, Rela- 
cao de I.R., Guia de IAPAS, Relacao 
p/Banco, Recibo de Pagto., etc. 



PROGRAMA 



Controle de Estoque 
Mala Direta c/ Ed. Texto 
Contas a pagar/receber 
Tesouraria (c/saldo bancario) 
Crediario 
Contabilidade 




Voce encontra esses e outros programas em nossos 
revendedorcs credenciados. 




A geragao 
Radio Shack 





TRS-80 Modelo III: o mais vendido 



Quando ainda nao sefalava objetivamente em micros 
pessoais nos Estados Unidos, a entrada em cena do TRS- 
80 Modelo 1 da Radio Shack foi um marco decisivo 
na formacao do mercado americano dos computadores 
para o lar. primeiro pas so estava dado, outros 
seguiram a mesma trilha e, posteriormente, o sucesso 
alcancado por essas pequenas e geniais maquinas na 
sociedade americana, fez com que grandes companhias 
(inclusive a IBM) passassem a investir seriamente 



nessa fatia de mercado. E a Radio Shack continuou 
causando impact o ao oferecer modelos e mais modelos 
em todas as possiveis conjiguracoes do momento. Os 
micros Tandy Radio Shack cruzaram fronteiras t\aqui no 
Brasil, aportaram em varias versoes tropicais. Com 
o mesmo impacto dos Estados Unidos, os micros TRS 
brasileiros mantiveram a tradicao de seus 
parentes americanos: ser campeoes de vendas no 
mercado dos pessoais. 



mais complete linha de produtos da indiistria 
de microinformatica, incluindo hardware, 
software e acessorios. 

BASIC Ni'vel I evoluiu para o Ni'vel II, 
bem mais complete) e poderoso, e passou a 
equipar o Modelo II. Sistema de uso essen- 
cialmente comercial, com memoria RAM de 
32 ou 64 K, 32 caracteies especiais para grd- 
ficos comerciais, o Modelo II trabalha com ate 
quatro drives de 8", face e densidade dupla 
(numa capacidade total de 2 Mb) ou. ainda, 
quatro discos Winchester de 8,4 Mb cada. 

Dentro dessa linha de sistcnias grandes de 
aplicacao comercial, a empresa lancou tam- 
bem o Modelo 16, com dois processadores: 
Motorola MC68000, de 16 bits e clock de 6 
MHz, e Zilog Z80A, de 8 bits e clock de 4 
MHz. 

Compati'vel em software com o Modelo II, 
o principal destaque desse modelo e a sua ca- 
pacidade de processamento em modo multi- 
usuario. que lhe permite operar com ate dois 
terminals de dados executando simultanea- 



mente programas diferentes. 

Em contraste com essas maquinas de gran- 
de capacidade - entre as quais temos ainda o 
Modelo 12, capaz de formar uma rede de au- 
tomacao de escritorio composta de ate 255 
micros - a Radio Shack oferece os Pocket 
Computers, com tamanho de calculadora, mas 
desempenho de computador. O Modelo PC-1 
tern linguagem Pocket Computer BASIC, si- 
milar ao BASIC Nivel 1, 11 KB de ROM e 1,9 
KB de RAM. 

Bastante maior, mas ainda de grande por- 
tabilidade, em virtude de suas reduzidas di- 
mensoes e baixo peso, o Modelo 100 e mais 
poderoso que os seus irmaos menores e in cor- 
pora caracten'sucas que muitos sistemas de 
maior porte nao tern, tais como modem em- 
butido. Sua memoria vai ate 32 K RAM, e o 
video e de crista! h'quido com matriz de 240 
x 64 pontos. O equipamento dispoe ainda de 
interfaces paralela, serial e para cassete e, a 
exemplo dos PCs, tern memoria permanente 
manuda por batehas. 



No segmento de uso domestico e Iazer, a 
Radio Shack esta presente com o Color Com- 
puter. O equipamento e fornecido em varias 
versoes, com diferentes capacicjades e aplica- 
cSes, entre elas, a de funcionar como terminal 
de videotexto. A memoria RAM vai de 4 a 32 
K, enquanto que a ROM pode ser de 4 K, no 
caso de se utilizar o Color BASIC, ou 16 K, 
exigjdos pelo Extended Color BASIC, que 
permite o uso de ate quatro drives de 5 1/4". 

Dentre esses modelos, no entanto, os mais 
populares sa*o os I (250 mil instalados) e III 
(100 mil unidades vendidas nos dois primei- 
ros anos). 

Lancado em 1 980 para substituir o Mode- 
lo I (que teve, em conseqiiencia, encerrada a 
sua producao nos EUA), o Modelo III tern 
muita coisa em comum com o seu anteces- 
sor, tanto que e vendido em duas versoes: a 
mais simples (e barata), que utiliza o BASIC 
Ni'vel I de 4 K, do modelo anterior, e a mais 
sofisticada, com o BASIC Nfvel II de 16 K 
ROM. 



Modelos I e III: 

uma questao de compatibilidade 



Na aparencia externa, o Modelo III 
reune num so gabinete diversos pe- 
rifericos que eram separados no Mo- 
delo I, tais como o video, drives, expansao de 
memoria etc. Ambos utilizam o microproces- 
sador Z80, mas as velocidades diferem: 1,77 
MHz (Mod. I) contra 2,08 MHz (Mod. III). O 
tipo (monocromatico, fosforo bianco), for- 
mato (16 Unhas de 64 caracteres) e resolucao 
grafica (128 x 48 pontos) do video sao os 
mesmos. De diferente, o Modelo III apresenta 
os caracteres miniisculos e um conjunto bas- 
tante amplo de caracteres altemativos (alfabe- 
to japones, letras graficas, algumas figuras de 
jogos, etc.). 

No teclado, tarn bem, nem tudo e igual: o 
Modelo I nao tern bloco nume'rico separado, 
enquanto que no III as teclas SHIFT da direi- 
ta e da esquerda podem ser encaradas como 
teclas separadas. O Modelo I aceita ate duas 
unidades de cassete, com velocidade de trans- 
missao de 500 bauds. O Modelo III permite 
apenas um cassete, mas a velocidade de trans- 
missao, selecionada por software, pode ser de 
500 ou 1500 bauds. Ambos gravam os arqui- 
vos de dados em 500 bauds, mas os programas 
em linguagem de maquina que utilizam o cas- 
sete como arquivo de dados, nao serao compa- 



ti'veis nos dois modelos, uma vez que os ende- 
recos das rotinas de cassete nao sao exatamen- 
te os mesmos. 

O acesso a impressora, no Modelo I, e fei- 
to por um endere^o de memoria, enquanto 

3ue no III e feito atraves de uma das portas 
o processador. Isso faz com que os progra- 
mas em linguagem de maquina que tern as 
suas proprias rotinas de impressao (Scnpsit, 
Edtasm, etc.), nao utilizando, assim, as rotinas 
existentes na ROM do computador, nao sejam 
compativeis nos dois modelos. O Modelo III 
permite ainda que se cancele uma impressao, 
bastando apertar o BREAK; no Modelo 1, o 
computador Qca totalmente travado, restando 
apenas a possibilidade de apertar o RESET. 

E nos discos que reside, talvez, a principal 
diferenca entre os dois modelos. O Modelo I 
utiliza drives de densidade amples, com for- 
matacao de 35 trilhas de 10 setores de 256 
bytes, num total de 89600 bytes. O Modelo 
III usa drives de densidade dupla, com forma- 
tacao de 40 trilhas de 1 8 setores de 256 by- 
tes, totalizando 184320 bytes, mais do que o 
dobro. E quase impossfvel trabalhar num Mo- 
delo I com apenas um drive, pois apenas o sis- 
tema operacional e o BASIC-Disco utilizam 



quase todo o espaco disponi'vel no disquete. 
Logicamente, o acesso aos discos e feito de 
modo bastante diferente. Dessa forma, pro- 
gramas em linguagem de ma'quina que utili- 
zam as rotinas do sistema para acessar os dis- 
cos, serao certamente incompati'veis nos dois 
modelos. 

No Brasil o quadro 6 um pouco diferente: 
em termos de programas em BASIC, nao com 
relacao ao BASIC-Disco, a compatibilidade vai 
depender somente do sistema operacional uti- 
lizado: o TRS DOS dos Modelos I e III e bas- 
tante diferente, mas os outros sistemas - co- 
mo o DOSPLUS, o LDOS, NEWDOS e MUL- 
TIDOS, por exemplo - oferecem virtualmen- 
te os mesmos comandos aos dois modelo 1 !. Ja 
nos programas em linguagem de maquina, as 
dificuldades sa*o maiores, pois, grande parte 
dos enderecos utilizados nao coincidem nos 
dois modelos. 

Em relacao aos compativeis nacionais, as 
diferencas entre os Modelos I e III sao bem 
menores. O DGT-1000, por exemplo, e um 
Modelo I, mas tern drives de densidade dupla 
e 40 trilhas, alem do teclado nume'rico sepa- 
rado, enquanto que praticamente todos os 
modelos aqui fabricados apresentam carac- 
teres miniisculos no video. 



f ( £> e eu der um negocio desses de Natal 
^•k a minha mulher, ela vai pensar que 
kj eu figuqei mahico". Assim reagju o 
Presidents da- Radio Shack, Lou Kornfeld,ao 
lhe apresentarem o prototipo do primeiro 
computador pessoal comercializado com 
exito no mundo, o TRS-80 Modelo I, em 
1976. 

As duvidas e o ceticismo de Kornfeld, 
compartilhados por outros dentro da organi- 
za?ao tinham, nao obstante, sua razao de ser. 
Afinal, naquela epoca os computadores ainda 
eram vistos como maquinas complicadas, aces- 
siveis apenas a um seleto grupo de iniciados 
no assunto. Como, entao, poderia o compu- 
tador transform ar-se num produto de massa? 
Que utilidade real poderia oferecer aos seus 
compradores? 

Essa pergunta foi, inicialmente, difi'cil de 



responder, sobretudo pelo fato de que todo o 
software disponi'vel naquele momento resu- 
mia-'sc na linguagem Tiny BASIC e num mo- 
desto jogo de Blackjack armazenado em fita 
cassete. Essas dificuldades, no entanto, nao 
diminuiram o entusiasmo da equipe liderada 
por Don French, o homem que idealizou o 
TRS-80. 

A primeira coisa a fazer para tomar o pro- 
duto bem-sucedido no mercado, perceberam 
logo os idealizadores do Modelo I, seria es- 
crever um manual capaz de ensinar aos ini- 
ciantes - de maneira simples e clara, mas ao 
mesmo tempo sem lhes insultar a inteligencia 
- como operar o computador. 

Outro problema enfrentado e que na Ra- 
dio Shack - gigantesca empresa do ramo de 
componentes e produtos eletronicos - nin- 
guem conhecia a fundo a linguagem BASIC. 



A solucao foi contratar os servicos de um es- 
pecialista, o Dr. David A. Lien, que relem- 
bra, em artigo publicado na edi^ao de aniver- 
sario da revista 80 Micro em 1983, como nas- 
ceu o BASIC Nfvel 1 : "Passamos (David Lien, 
Don French e Steve Leininger, outro integran- 
te do projeto) o dia todo sentados aquela me- 
sa redonda. Eu examinei uma lista exaustiva 
de palavras de BASIC e cxpiiquei suas possibi- 
lidades. Dispunhamos apenas de 4 K de ROM 
e tivemos, entao, que decidir quais palavras 
incluir no interpretador BASIC. Parecia uma 
tarefa impossi'vel, mas, no fun do dia, o BA- 
SIC Nivel I era uma realidade". 

O sucesso do Modelo I no mercado norte- 
americano - e logo a seguir em outros pai'ses 
- nao tardou a vir, incentivando a Radio 
Shack a fazer diversos outros lancamentos que 
permitem a empresa, hoje, ostentar a maior e 



O mercado brasileiro 



Quando falamos cm mercado brasileiro 
da linha TRS-80, nos limitamos ao 
TRS-80 Modelo I e TRS-80 Modelo 
III, os micros da familia americana 
que possuem versoes tupiniquins. O Modelo I 
por ter sido o primeiro microcomputador a 
ser lancado nos Estados Unidos por uma com- 
panhia de grande porte de comercializacao, a 
Tandy Corporation, garantiu um equipamen- 
to de baixo preco e facilmente encontrado nas 
6 mil lojas Radio Shack. O Modelo III por ser 
um projeto mais aperfeiooado que o primeiro 
e ter se tornado, sem duvida, um recordista de 
vendas no concorrido mercado nortc-america- 



no, rcsultou numa alta disponibilidade de 
software. 

Atualmcnte, no mercado brasileiro, temos 
dois micros compativeis com o primeiro mo- 
delo da familia TRS: DGT-1000, da Digitus e 
JR Sysdata, da Sysdata. O Modelo III possui 
mais representantes nacionais: CP-500 e 
CP-300. da Prologica; Naja, da Kemitron e o 
mais recente lancamento da Sysdata: o Sysda- 
ta III. Temos tambe'm os computadores com- 
pati'veis com o TRS-Color Computer que, por 
apresentarem caractcristicas muito especi'fi- 
cas, serao tratados a parte em nosso artigo. 

A historia da linha TRS no Brasil se con- 



funde com a propria historia dos microcompu- 
tadores em nosso pais, ja que o primeiro mi- 
cro a surgir no Brasil foi um equipamento da 
familia Radio Shack. A Dismac.fabricante de 
calculadoras eletronicas, no final de 1980, 
apresentou na Feira de Utilidade s Domdsticas, 
em Sao Paulo, o prototipo do primeiro com- 
putador pessoal nacional: o D-8000. Compati'- 
vel com o Modelo I, esse equipamento foi 
apresentado quatro anos depois de seu origi- 
nal ter surgido nos EUA. 

Dois anos depois, a se"rie D-8000 da Dis- 
mac se expande no mercado brasileiro com o » 
D-8001 e D-8002. Entretanto, por ironia ou Jb 
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nab do destino, a Disrnac, primeixa a entrar no 
campo de batalha da linha TRS foi tambe'm a 
primeira a abandonax a luta e optar pelo 
Apple, o que, segundo ela, foi uma ' exigcncia 
do mercado". Mas os fabricantcs que sucede- 
ram a serie Disrnac estao ai, invest indo em 
seus os fabricantes que sucederam a serie 
Disrnac estao ai, investindo em seus equipa- 
mcntos e acreditando muito no futuro brasi- 
leiro da linha TRS. 



Os CPs da Prologica 



"A linha TRS 6 forte e cstavel. Desde que 
o Modelo III foi lanc,ado ele mante'm seu lu- 
gar", afinna S. Carreiro, da Prologica. O 
CP-500 c um exemplo disso, lancado em abril 
de 1982, ele 6 o primeiro micro nacional intei- 
ramente compativel em hardware e software 
com o TRS-80 Modelo III. Carro-chefe da li- 
nha TRS no Brasil, o CP-500 ja alcancou a 
marca de 10 mil equipamentos vendidos e foi 
apontado pelos lojistas como o micro da linha 
mais comercializado no Brasil. 

O CP-500 e* o que se pode chamar de um 
micro integrado, ou seja, em um mesmo gabi- 
nete estao reunidos o teclado, monitor de vf- 
deo fosforo verde e espaco para ate" dois acio- 
nadores de discos flexfveis. 

Quatro configura5oes - todas com 48 
Kb RAM - podem ser escolhidas para esta 
maquina. Na configuracao mais simples, ele 
vem com interface para cassete, interface 
paralela para impressora e um gravador casse- 
te. Numa segunda versao, ele pode vir com 
uma unidade para disquetes de 5 1/4" e siste- 
ma opcracional DOS 500. Nas outras duas 
versoes, o CP-500 opera com duas e com qua- 
tro unidades de disquetes. 

Projetado para atingix, principalmente, 
uma faixa de publico formada por profissio- 
nais e pequenas empresas, o CP-500 atende 
tambem o segmento hobby sfa e domestico, 
mas em escala bem menor, fundamentalmente 
pelo fator preco. Procurando preencher esta 
fatia do mercado, entre o microcomputador 
de aplica^oes domesticas e o proflssional, a 
Prologica lan?ou, em junho de 1983, o 
CP-300. 

Sendo totalmente compativel, tanto em 
hardware quanto em software, com o CP-500, 
o 300 nasceu baseado em um conceito : a mo- 
dularidade. "Ha via uma brecha na linha de 
equipamentos da Proldgica, que saltava do 
CP-200 Ginha Sinclair) para o CP-500, explica 
S. Carreiro. "Vimos entao que daria para colo- 
car o 500 numa versao economica, sem drive, 
sem monitor, podendo ser ligado diretamente 
a televisab, com teclado mais simples que o 
professional, sem teclado numerico reduzido, 
isto 6, como um produto modular compativel 
com o CP-500 e com possibilidades de expan- 
sao". 

Para a Prologica, o CP-300 foi um sucesso 
de marketing, mas a opiniao dos lojistas diver- 
ge nesse aspecto. A posi^ao da Clappy, no Rio 
de Janeiro, $ de que a demora da Prologica 
em colocar no mercado os perifericos que pos- 
sibilitam a expansao do CP-300, descaracteri- 
zou o equipamento no que ele tinha de mais 
importante: versatilidade. Com isso, as vendas 
do CP-300 foram dificultadas. 

Para a equipe da I marcs, em Sao Paulo, ao 
contfaho, a opcao criada pela entrada do 
CP-300 no mercado foi boa, porque abriu o 
lcque de opgoes do lojista. A loja vem, inclu- 
sive, rcgistrando uma boa comercializacao do 
CP-300. Ja a Compushop, de Sao Paulo, nao 
chegou a comercializar o CP-300 porque seu 
proprietario, Roberto Riwczes, nao conside- 
rou o CP-300 um produto novo. "Aldm disso", 
disse ele, "a Compushop nao esta mais reven- 




Naja: a versao sofisticada da linha TRS 

dendo os equipamentos da Prologica devido a 
problemas com esse fabricante". 

Na verdade, a Prologica, considerada a 
quarta industria de microcomputadores do 
pais, sempre suscitou pole mica, principalmen- 
te por ser o fabricante nacional que resolveu 
optar pela verticaliza9ao, isto 6 , fabricar ela 
mesma, seus perife'ricos, principalmente com 
o objetivo de baratear o custo desses produtos. 



A versao mineira 
da Digitus 



Na 1 Feira de Informatica, em outubro de 
1981, quando o computador ainda era enca- 
rado por muitos como um bicho de sete cabe- 
cas, uma das novidades era o DGT-100. Com- 
patfvel com o Modelo I da Radio Shack, foi 
fabricado por tres mineiros, colegas de Univer- 
sidade, que juntos criaram a Digitus. "O TRS 
6 um computador moderno, de mais recursos, 
com um BASIC mais facil tambem, e 6 o mi- 
cro que apresenta a melhor razao entre per- 
formance e custo", disse Marcelo Batista, um 
dos Diretores da Digitus, ao justificar a esco- 
lha da empresa. 

O DGT-100, em sua configuracao inicial, 
compreende a unidade central, um teclado 
alfa-numerico e uma fonte de alimentacao, 
todos contidos no mesmo gabinete, e mais 
uma TV com funcao de monitor e um grava- 
dor cassete. 

Depois da consolidacao do DGT-100 no 
mercado nacional ,onde o fato de ter sido es- 
colhido pela Telebras para formacao de sua 
comunidade informatizada teve um grande 
peso, a Digitus lancou no Micro Festival de 
1983, em Sao Paulo, o DGT-101, uma nova 
versao do DGT-100. 

Totalmente compativel com o 100, tanto 
em hardware como em software, o 101 trazia 
tres novidades: incorporacao do sistema ope- 
racional CP/M, acessando 64 Kb de RAM, 
monitor de fosforo verde e duas unidades de 
disco. Mas, os usuarios do DGT-100 puderam 
incorporar essas vantagens com a colocacao a 
venda, pela Digitus, da interface para unidade 
de disco flexrvel, um monitor com tubo de 
f6sforo verde, e a expansao para CP/M. 

Uma das diferencas existentes entre o 
TRS-80 Modelo I e o equipamento da Digitus 
6 a maior capacidade de armazenamento das 
unidades de disco flexivel, uma vez que o 
DGT-100 utiliza densidade dupla e o modelo 
da Radio Shack densidade simples. As dife- 
rencas nab param por ai", desde o proprio 
design do microcomputador, podemos incluir 



ainda as rotinas de controle do teclado, o 
tratamento das interrupc5es e a incorporacao 
de uma tecla de "9' . Estas diferencas, no 
entanto, em nada interferem na compatibili- 
dade dos equipamentos. 

Mas os empresanos mineiros nao ficaram 
por ai. Na ultima Feira de Informatica, em 
outubro do ano passado, lancaram o DGT- 
1000. Na verdade o 1000 € um DGT-100 com 
um novo gabinete, de linhas mais harmonio- 
sas, em poliuretano; teclado nume'rico reduzi- 
do; video proflssional em fosforo verde; maior 
facilidade de expansao em placas facilmente 
encaixaveis em slots pelo proprio usuario e 
uma interface para cores em alta resolucao. 
Com essa ultima, o sistema passa a trabalhar 
simultaneamentc com dois videos: o monitor 
normal do micro e um televisor a cores, onde 
se obtera uma resolucao de 256 x 192 pontos 
e 16 cores. 



Os modelos Sysdata 



Colocar no mercado um equipamento da 
linha TRS-80 potente, versatil e com um pre- 
90 razoavel no disputado mercado dos pes- 
soais foi o objetivo da Sysdata quando lancou 
o JR Sysdata, em abril de 1983. 

Considerado por muitos uma opcao mais 
barata. o JR da Sysdata 6 compativel com o 
Modelo I da linha TRS, mas apresenta alguns 
incrementos originais. Algumas dessas novida- 
des sab aguardadas pelos usuarios do Junior e 
outras ja estao no mercado, pore'm nao sib 
facilmente encontradas. 

O JR tem na sua UCP, por exemplo, um 
soquete para 2 Kb de memoria ROM ou 
EPROM. Nele podem ser utilizados um chip 
JR Extended BASIC ou um chip para auto- 
start de programas aplicativos, bem como uma 
memoria EPROM gravada pelo usuario. 

O teclado do Junior 6 implementado 
atraves de teclas do tipo chiclete, que e uma 
das OTCoes, e tambem a melhor encontrada 
pela Sysdata para baratear o pre90 do seu 
equipamento . Entretanto, buscando atender 
a faixa de usuarios que utiliza o micro profis- 
sionalmente, a Sysdata esta comerciauzando 
um teclado proflssional adaptive! . 

Por constatar que a linha TRS e a mais 
vendida no mercado brasileiro e.que existe 
uma grande quantidade de sofwtare disponf- 
vel no mercado para essa familia de equipa- 
mentos, a Sysdata continua apostando nos 
modelos da Radio Shack, e lancou na ultima 
Feira de Informatica, em Sao Paulo, dois 
novos computadores: o colorido TColor e o 
Sysdata III, compativel com o Modelo III. 



O Naja e a Kemitron 



Partir da experiencia bem sucedida da 
Radio Shack foi tambe'm a opcao da Kemi- 
tron, uma empresa de Belo Horizonte, que 
lancou em outubro de 1982, na II Feira de 
Informatica, o Naja, com software compativel 
com o TRS-80 Modelo III. 

"Optamos pelo Modelo III pela quantida- 
de de software existente no mercado bem su- 
perior aos outros, e pela qualidade do Z80, 
microprocessador bem avancado, superior ao 
8085, sendo somente superado pelos de 16 
bits", afirmou Lae'rcio Rodrigo de Matos, 
Gerente de Marketing da Kemitron. 

O Naja, com video de fosforo verde opcio- 
cional, apresenta algumas implementacoes a 
partir do seu compatfvel da Radio Shack. 



Um slot interno com seis conectores que dab 
acesso a todos os pinos da UCP foi introduzi- 
do para facilitar as expansoes e tomar o mi- 
cro mais versatil, alemde facilitar o trabalho 
em controle de processes. 



O Sistema de comutacfo de clock do Naja, 
com a UCP na versao basicaja trabalha com 
2,0 MHz (que e o clock do CP-500) e mais o 
clock de 3,6, tornando-o 70% mais rapido que 
o Modelo III da Radio Shack. A Kemitron 



oferece ainda uma placa que aumenta o clock 
para 4 ate* 6 Mhz, o que transform a o Naja em 
um dos micros mais rapidos no grupo dos de 
oito bits, so superado em velocidade de pro- 
cesamento pelos de 16 bits. 



Perifericos 



Em relacao aos perifericos da linha TRS, 
com excecab da Proldgica, que optou pe- 
la verticalizai,-ao. as demais empresas que 
fabricam equipamentos dessa familia optaram 
pelo sistema de OEM para comercializacao de 
seus perifericos. Sendo assim, a maiona dos 
que existem no mercado para essa linha de 
equipamentos, de uma maneira ou de outra, 
levam a marca do fabricante. 

Desse modo, a relacao dos perifericos da 
linha TRS que damos a seguir, fornecida pelos 
fabricantes a MICRO SISTEMAS, e o proprio 
retrato do que existe no mercado para essa 
familia de equipamentos. 
Prologica (CP-500): Impressora P-500 (170,29 
ORTNs); Cabo p/liga9ab de impressora 
(13,27 ORTNs); RS 232 C (23,41 ORTNs). 
Digitus (DGT-1000): Expansao 48 Kb (19,25 
ORTNs); Expansao 64 Kb de RAM (33,19 
ORTNs); Cabo para conexao das interfaces 
(8,44 ORTNs); Interface para drive (36,50 
ORTNs); drive de 5 1/4" (108,99 ORTNs); 
Interface para impressora (5,64 ORTNs); Sin- 
tetizador de voz (28,14 (ORTNs); Monitor 
TX 700 P/B (18,10 ORTNs); Monitor TX fos- 



foro verde (23,53 ORTNs); Placa CP/M 
(27,75 ORTNs). 

Sysdata (Jr.): Expansfo 48 Kb (92,37 
ORTNs); Teclado proflssional (17,50 
ORTNs); Interface para drive e impressora 
(37,71 ORTNs); drive para 5 l/4 ,f (95,97 
ORTNs); Monitor P/B (31,22 ORTNs); Moni- 
tor fosforo verde (34,50 ORTNs); Extended 
BASIC (4,86 ORTNs); Placa CP/M (8,62 
ORTNs). 

Kemitron (Naja): Interface para drive (52,00 
ORTNs); drive de 5 1/4" (120,00 ORTNs); 
RS 232 C (25J0O ORTNs); Placa de clock 4 
MHz (7.00 ORTNs); Placa de clock 6 MHz 
(25,18 ORTNs); Placa CP/M com 64 Kb 
(33,00 ORTNs); Placa de video a cores 
(44,50 ORTNs); Sintetizador de voz (4830 
ORTNs); Interface de som (5,00 ORTNs). 

Alem dessa pesquisa feita junto aos fabri- 
cantes, a reportagem de MICRO SISTEMAS 
consultou algumas lojas do Rio de Janeiro e 
de Sao Paulo, constat ando que realmente 
todos (ou quase todos) os perifericos da linha 
TRS estao nas r&leas dos fabricantes, a nao 



ser, i claro, as TVs, gravadores e impressoras. 
Vejamos, entao alguns desses: 
Impressoras: Elebra - Monica 6010 (219,05 
ORTNs); Emilia 8011 (241,38 ORTNs): Emi- 
lia 8031 (49434 ORTNs); Alice (555 
ORTNs); Elgin MT-130 (434,49 ORTNs); 
Elgin MT-140 (464,66 ORTNs); Isa - EL 
8000 (205, 17 ORTNs). 
TV: TV Philco normal P/B com entrada para 
monitor (1931 ORTNs); TV Philco com fos- 
foro verde (23,53 ORTNs); monitor Instrum 
f6sforo verde (6638 ORTNs). 
Gravador: Cassete National com con ta giro (o 
mais recomendado). 

Na loja Imares, em Sib Paulo, encontra- 
mos ainda placa de alta resolucao grafica para 
CP-500 da PSI (102,59 ORTNs); Joystick 
para CP-500, da Corsario, (7,96 ORTNs); e 
Light-pen, da Prisma (1 1 ,46 ORTNs). 

Na Clappy, no Rio de Janeiro, alim dos 
perifericos ja enumerados, sab comercializa- 
dos uma Placa CP/M para CP-500, da Progus 
(28,96 ORTNs) e outra Placa CP/M, tambe'm 
para CP-500, da Microsol (42,24 ORTNs). 



Assistencia tecnica 



Aassistencia tecnica e encarada pelos 
fabricantes nacionais da familia TRS 
como questab de primeira ordem. 
Talvez por isso, a maioria optou por fornece- 
rem eles mesmos assistencia aos seus equipa- 
mentos ou, no maximo, credenciar poucas 
empresas no seu Estado e mais algumas fora 
dele, simplesmente pela incapacidade natural 
de atender usuarios de outras regides. 

Enquanto os fabricantes man tem um posi- 
cionamento centralizador, resta as empresas 
nab credendadas lutar com seus proprios 
meios. Quando se trata de grandes firmas. a 



coisa fica mais facil, mas a reclama9ao parte 
justamente das pequenas e medias que, nab 
autorizadas e sem chances para tal, carecem 
de manuais de fabrica9ao e esquemas. Essa 
documentacSb, segundo muitos, deveria estar 
nao so ao alcance das firmas de maiiutencao 
mas ate mesmo do proprio usuario. 

Entretanto, com ou sem assistencia tecnica 
centralizada, os problemas surgem e as empre- 
sas tentam resolve-los com os recursos que 
possuem. Na opiniao do pessoal de assisten- 
cia tecnica e manutencao consultados por nos- 
sa reportagem no Rio de Janeiro e em Sab 



Paulo, os defeitos apresentados nos equipa- 
mentos nacionais da linha TRS sao. na sua 
maioria, decorrentes de falhas mecanicas e 
operacionais, dificilmente se referem a parte 
efetronica, isto e, eles esta"o mais centraliza- 
dos nos perifericos. 

O problema numero um das nossas versoes 
TRS, apontado por quase todos da area e 
mesmo pelos fabricantes, e a unidade de dis- 
co. Considerada como parte mecanica do 
equipamento, o drive e suscetivel a defeitos 
por ser um elemento de precisao, que esta em 
contato constante com usuarios os mais diver- 



Os Color nacionais 



A partir do TRS-80 Color Computer lancado pela Radio 
Shack, uma nova geracao de computadores da linha TRS 
surgiu no Brasil com o mesmo apelo do original: cores e alta 
resolucao grafica. O primeiro deles foi o CD-6809, da empresa gau- 
cha Codimex. Logo depois veio o Color 64 da carioca Novo Tempo 
e na ultima Feira de Informatica assist imos a dois lancamentos nessa 
linha: o TColor, da Sysdata e o VC-50, da Engetecnica Varix. 

A proposta desses computadores 6 oferecer ao usuario brasileiro 
caracteristicas de processamento comercial semelhantes ao do 
TRS-80 Modelo III e ao mesmo tempo caracteristicas de processa- 
mento grafico colorida iguais ao do Apple, porem, a um custo igual 
ou inferior ao do Modelo III. 

No entanto, esses equipamentos, ainda recentes no mercado 
brasileiro e bem verdade, nao tem sido encarados por esse angulo. 
Ser considerado por muitos um micro para joguinhos leva os usua- 
rios do Color a quei.xarem-.se da carencia de aplicativos serios em 
comparacab com a excessiva quantidade de jogos no mercado. 



Independence desse quadro, os fabricantes nacionais de Colors 
continuant apostando nos seus equipamentos e incentivando a pro- 
duyao de software. A Codimex, alem de ter implementado o 
CD-6809 com sistema de cores brasileiras PAL-M esta anunciando 
expansao de mem6ria para 64 K e sintetizador de voz. 

A Novo Tempo tambem fez algumas implementacoes no Color 
64, a partir do original americano, como saida de video compos to 
para monitor, geracao de sinal de video PAL-M, teclado proflssional 
e conector de expansao interno. A Novo Tempo esta, no momento, 
direcionando seus esforoos para fatias de mercado que necessitem de 
equipamentos com caracteristicas especiais. Neste sentido, estao 
sendo desenvolvidas duas interfaces, uma para Videotexto padrab 
AN TIOPE e outra para conversab AD/DA de 12 bits. 

Os novos lancamentos nessa linha - TColor e VG50 - trazem 
como novidade a possibilidade de selecab entre o uso de drive ou 
cartuchos com programas e jogos. 
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sos e que nem sempre tomam as devidas pre- 
cauc,5es quanto a utilizacSb do sistema. Alem 
disso, algumas firmas assinalaram ainda, a ma 
qualidade dos componentes eletronicos mais 
especfficos do drive, aqueles responsaveis pela 
leitura e escnta. 

O CP-500, da Prologica, foi apontado pelas 
empresas de manutencjfo como o equipamen- 
to" da tin ha TRS que mais apresenta proble- 
mas com o drive, nos outros a incidenaa e 
menor. Esses problemas podem ser txaduzidos 
por desalinhamento da cabega de leitura e 
gravasao e desajuste de velocidade. 

Diante disso, alguns cuidados especiais de- 
vem ser tornados pelos usuarios ao lidar com o 
drive, ja que a ma utilizacao contribui para 
agravar sensivelmcnte o problema. 

Um dosalertasvai para a questa~o de dcsali- 
nliamento da uniaade de disco e os entendidos 
aconselham o abnhamcnto periodico, como 
garantia. 

So para se ter uma ideia do que a displi- 
cencia com esse ponto pode causar, se o usua- 
rio trabalhar com uma unidade desalinhada, 
embora o sistema esteja funcionando bem, ira 
fazer gravacoes fora do padrao. Quando a uni- 
dade parar de vez e o usuario proceder ao ali- 
nhamento tera uma triste surpresa: os disque- 
tes que foram gravados fora do padrao apre- 
sentarao erro de disco, de entrada ou o pro- 
prio sistema nao vai acci ta-los. 

Por fim. algumas dicas que garantem um 
melhor funcionamento dos drives: 

• nao deixar os disquetes em locais de muita 
poeira ou expostos ao sol; 

• nao fumar proximo aos disquetes: 

• jamais tirar ou insenr um disquete com o 
led do drive aceso; 

• manter as mesmas concedes de regulagem 
de tensao dos componentes, tambe'm em 
relacJo aos drives - o drive deve ser conec- 
tado a uma fonte de tensao regulada: 

• quando algum desajuste surgir, recorrer 
imediatamente a uma equipe tecnica quali- 
ficada. 

Mas na*o sao so os drives que dao dores de 
cabeca aos usuarios da linha TRS. Com me- 
nor inddencia, e bem verdade, as empresas de 
assistencia tecnica falaram ainda sobre o tecla- 
do, um problema que e menor no CP-500 e 
maior nos equipamentos Digitus e Kemitron. 
Algumas teclas desses micros deixam de fun- 
cionar e a solucao e substituir o reed switch 
(componente ativo do teclado). Fabricantes, 
como a Digitus e a Kemitron. confirmam o 
problema, mas acrescentam que eie ja esta 
sendo soluaonado. Segundo elas, tratou-se de 
uma remessa defeituosa que foi colocada no 
mercado pela Digiponto, tradicional fabrican- 
te de teclados. 

Para melhor posicionamento de nossos lei- 
tores, na area de assistencia tecnica, a MS pe- 
diu uma pequena relacao a BCD Engenharia. 
Montagem e Comercio, com os defeitos mais 
comqueiros aprescntados pelos equipamen- 
tos da famflia TRS brasileira e as adaptacoes 
mais solicitadas, alem dos respectivos precos: 

• Reparos na UCP - 6 ORTNs (preco medio) 

• Regulagem e limpeza de drive - 4,8 
ORTNs 

• Conserto de teclado (s\ibstitui^ao do reed 
switch) - 2.4 ORTNs 

• lnstalaijao de drive - 3 .6 ORTNs 

• Instalacao de expansao de memoria - 
2,4 ORTNs 

• Monitoriza^ao de TV preto e branco - 
3 ORTNs 

• Monitorizacao de TV colorida PAL/M 
- 4,2 ORTNs 

• Instalacao de joystick - 3 ORTNs 



Sofware 



Afamilia TRS e seguramente uma das 
linhas de microcomputadores que 
mais possui software desenvolvido 
para seus equipamentos. O fa to de ter sido 
uma das primeiras a surgir no mercado amen- 
cano e tambe'm a sua forma ampla de comer- 
ciaiizacaO, atraves de uma cadeia como a Ra- 
dio Shack, incentivou e muito uma industria 
dinamica de software. 

Entretanto, quando nos referimos a soft- 
ware nacional para a linha TRS, as opinioes 
de nossos fabricantes divergem um pouco. 
Enquanto a Prologica e a Sysdata conside- 
ram suficiente o software disponfvel no nosso 
mercado, para a linha TRS, tanto em quanti- 
dade como em qualidade, a Digitus e catego- 
rica ao afirmar que ele nao e satisfatorio. Se 
falamos em jogos, tudo bem, mas se falamos 
em apheacoes profissionais, na area contabil, 
financeira ou administrativa, vemos muitas 
adaptaijdes de pacotes amencanos e poucas 
aplicagoes que tenham a ver com a nossa rea- 
lidade", diz Marcelo Batista. 

Na opiniao de Laercio Matos, da Kemi- 
tron, a quantidade de software e grande mas 
nao suficiente. 'Tara uso pessoal, sim, mas pa- 
ra uso comercial, com exce^ao das versoes, e' 
fraco. Mas Laercio faz uma ressalva: "em com- 
parac,ao com as outras linhas, os equipamen- 
tos TRS ainda sao os mais favorecidos nesse 
ponto". 

Com relacao aos utilitarios, e bom frisar 
que o usuario da linha TRS nao precisa hear 
esperando as software houses nacionais colo- 
carem suas versoes dos compiladorcs ameri- 
canos no mercado. Utilitarios americanos sao 
encontrados em muitas lojas de microcompu- 
tadores, copiados em disquetes, com xerox ou 
nao do manual original, traduzidas ou nao, tu- 
do ao gosto e de acordo com o bolso do fre- 



gues. O mesmo se pode dizer de certos aplica- 
tivos americanos. 

A seguir damos uma relacao dos utilita- 
rios e aplicativos originais que sao comercia- 
lizados na Clappy, Rio de Janeiro, e na loja 
Imares, em Sao Paulo. Os prec.os variam bas- 
tante ja que muitos fatores concorrem naela- 
boracao do valor final. So para se ter uma 
ideia, nesse calculo entram o valor do disque- 
te, o tempo gasto para copia-Io, o prego da 
xerox do manual, o tempo gasto para tirar a 
xerox, garantias ou nao do lojista e por ai vai. 

Muitos desses utilitarios estao insendos em 
sistemas operacionais, mas acabam sendo ven- 
didos separadamente. £ o caso do Superzapc 
do Editor Assembler que compoem o Sistema 
Operacional NEWDOS. Infelizmente, nem 
sempre o usuario sai ganhando nessa historia: 
muitas lojas nao dao garantia na aquisicao des- 
ses produtos e as copias nem sempre saem 
perfeitas tarn bem, porque o m'vel de legibili- 
dade das copias xerox vai degradando. 

Utilitarios (Clappy): CompiJador COBOL 
(13,27 ORTNs), Compilador FORTRAN (6 
ORTNs), Compilador Basic (10 ORTNs), 
Compilador Pascal (13,27 ORTNs). Superzap 
(2,65 ORTNs), Editor Assembler (2,65 
ORTNs), Disassembler (2,65 ORTNs); 
(Imares): Editor Assembler (4 ORTNs). Com- 
pilador Basic (30 ORTNs), Compilador CO- 
BOL (32 ORTNs), Compilador Pascal (28 
ORTNs). 

Aplicativos amencanos (Clappy): Micro- 
Files (5.31 ORTNs). Profile (5.31 ORTNs), 
Profile Plus (13,27 ORTNs). Scripsit (6,63 
ORTNs), Superscripsit (13,27 ORTNs), Visi- 
Calc (13,27 ORTNs); (Imares): Superscripsit 
(27 ORTNs), Scripsit (22 ORTNs). Z Basic 
(22 ORTNs), Uolisp (20 ORTNs), Lisp (33 
ORTNs). 



A vez do usuario 



Parece nao haver muita clareza quando 
se pretende definir o ti'pico usuario 
da linha TRS. A priori, os lojistas se- 
nam pessoas indicadas para tracar um perfil 
do comprador da linha TRS. o que ja seria 
um pnmeiro passo. Entretanto, nem mesmo 
eles, que lidam diariamente com o publico 
dessa famflia de equipamentos, foram capazes 
de manter uma coerencia de opinioes. 

Visando definir melhor esse usuano e ao 
mesmo tempo colocar em discussao a visao 
que eles tern de cada um dos equipamentos, 
MICRO SISTEMAS promoveu um encontro 
de usuarios da linha TRS. Estiveram presen- 
tes Roberto Quito de Sant'Anna (CP-500), 
Joao Henrique Volpini (D-8000), Ivan Camilo 
Cruz (CP-500 e DGT-100), Francisco Laporte 
(JR Sysdata), Bruno Sartore (JR Sysdata), 
Guilherme Fernandes (Color 64) e Renato 
Degiovani, com a experienda do CPD de 
MICRO SISTEMAS. 

E foram esses usuarios que opinaram a res- 
peito da utilizacao dessa famflia de microcom- 
putadores. Roberto Quito de Sant'Anna, En- 
Snheiro de Telecomunica^oes, professor de 
formatica da AMAN e usuario de um 
CP-500 ha dois anos, nao acredita que esse 
equipamento possa ser adquirido por alguem 
que pretenda utiliza-lo em apucacoes domes- 
ticas. "A m'vel pessoal, o CP-500 podena atin- 



gir a faixa de entretenimento, mas isso outros 
micros fazem por um preco menor. Ja a faixa 
profissional nem todo micro atende. O 
CP-500 serve perfeitamente". 

Mas Ivan Camilo Cruz, que trabalha no 
Instituto de Qui'mica da UFRJ desenvolvendo 

?rogramas administrativos em equipamentos 
RS, e de opiniao que a fatia da linha TRS 
lancada no Brasil ate' agora e estritamente pes- 
soal. O fato dela estar sendo usada na area 
profissional/comercial e reflexo da situacao 
economica de muitas empresas e de profissio- 
nais que nao podem adquinr um equipamen- 
to mais caro e mais potente. 

Um usuario pessoal com menor experien- 
da em equipamentos TRS, como Frandsco 
Laporte, acredita que existe espa<;o para apli- 
cacpes dome'sticas e pessoais em equipamen- 
tos TRS. "Acho que a partir dai'vai se desco- 
brindo muitas coisas sobre o equipamento, 
acabando por chegar a aphca^des mais serias e 
liteis", diz ele. 

Seja qual for a utilizacao que os usuarios 
da linha TRS deem ao seu equipamento, uma 
coisa e certa: todos tern opiniao formada a 
respdto do seu micro, sabem o tipo de infor- 
ma^ao que faltou no manual do fabricante, sa- 
bem os defeitos mais comuns do seu equipa- 
mento, as robnas e os perifericos que estao 



faltando. Sendo assim e com eles que esti a 
palavra de agora em diante. 

Um fato assinalado por todos os usuarios, 
salvo raras excecoes, e a ma qualidade dos ma- 
nuals que acompanham o, equipamento e o di- 
fi'cil contato com o fabricante, o que difi- 
culta o fomecimento de dados e esclaredmen- 
to de diividas a respeito do funcionamento da 
maquina. 

A experiencia de Joao Henrique Volpini, 
Engenheiro Naval, terminando Pos-Graduacao 
na COPPE/UFRJ, que adquiriu um D-8000 da 
Dismac ha cerca de um ano e meio, e das mais 
intercssantcs. equipamento chegou sem ne- 
nhum manual de instrucao para montagem. 
Depois de uma intensa batalna e de um em- 
purraozinho do lojista, o D-8000 tomou cor- 
po e alcan^ou a forma certa. Depois, para li- 
dar com o equipamento foi outra etapa e ele 
acabou tendo que adquirir um manual do CP- 
500. Nessa epoca, as tentativas de contato 
com a Dismac por parte de Volpini foram 
inuteis. "Hoje - diz ele - eu ajo como se meu 
equipamento simplesmente nao tivesse fabri- 
cante'*. 

Roberto Quito de Sant'Anna considcra o 
manual do CP-500 razoavel, mas em compa- 
ra^ao com os outros da mesma linha e o me- 
lhor. Ja nao diz o mesmo em relacao a sua ex- 
perienda com o fabricante: "Liguei uma vez 
para a Prologica e a cada pergunta eles argu- 
mentavam: 'mas isso c segredo de diretoria', 
'mas isso so o dire tor sabe dizer'. Resultado, 
nao consegui saber a designacao das portas 
E/S do CP-500 e desisb de entrar em contato 
com o fabricante". 

Guilherme Fernandes. estudante de Enge- 
nharia Eletronica, considerou bom o manual 
do Color 64, uma rara excecio, mas em com- 
pensacao cnticou bastante o relacionamento 
entre os usuarios e os fabricantes. "Eu paguei 
o equipamento com modulador, mas na ver- 
dade ele nao tinha modulador, so quando re- 
cebi o micro c que descobri isso". 

O primeiro contato de Bruno Sartore, de 
15 anos. com o seu JR tambem nao foi muito 
bom. A ligacaodos cabos da interface de gra- 
va^So estava errada e ele levou algum tempo 
para descobrir isso. Experienda semelhante 
foi reistrada no CPD de MICRO SISTEMAS 
em relacao ao DGT-100. A tomada de tensao 
1 10/220 Volts estava invertida, o que sem ser 
observado a tempo podena causar um dano 
maior ao equipamento. £ nesse ponto que 
muitos usuarios se mostram descrentes em 
relacao a essa propagada preocupacao com 
o coptrole de qualidade por parte dos fabri- 
cantes. 

Torre de Babel 

Enquanto o assunto entre os usuarios da 
linha TRS reunidos por MICRO SISTEMAS 
girou em tomo dos manuals e do relaciona- 
mento com os fabricantes, as opinioes foram 
quase sempre as mesmas, apenas com peque- 
nas nuances devido as experiendas de cada 
um. Mas quando o assunto se voltou para o 
equipamento em si, o que se constatou e' que 



cada um falava uma lingua diferente. Isso de- 
monstrou claramente que a famflia TRS e' 
uma hnha de equipamento sui generis. A 
comumca?ao entre seus usuarios, quando se 
trata de falar sobre seu micro, e muito difi'cil, 
devido a propria especifiddade dos equipa- 
mentos dessa hnha. 

O usuario do Color, Guilherme Fernandes 
fez uma observacao particular a respeito do 
seu equipamento. Depois de adquiri-lo, Gui- 
lherme passou a considerar como linica des- 
vantagem desse equipamento o fato dele ser 
reconnecido por muitos como um micro para 
joguinhos. "O software disponivel e reduzido 
e a maior parte do que existe sao jogos. Nos 
na"o compramos um videogame e sim um com- 
putador' . 



Em problemas de drives, o CP-500 nao 
reina sozinho. Ivan Camilo, que tambem e 
usuario de um DGT-100, apontou problemas 
com os drives desse equipamento. Inclusive, 
pela experiencia que possui nos dois micros, 
Ivan e de opiniao que os drives da Digitus sao 
ate mais problematicos que os da Prologica. 

Quando o assunto se voltou para esses dois 
modelos da familia TRS mais comercializados 
no Brasil, CP-500 e DGT-100, algumas dife- 
rencas importantes foram assinaladas pelos 
usuarios desses dois equipamentos. Nessa bre- 
ve comparafjao, que nao envolve evidentemen- 
te todos os aspectos tecnicos dessas duas ma- 
quinas, estao frisadas apenas aquelas diferen- 
cas que saltam mais aos olhos de quern utili- 
za o equipamento no dia a dia. 




CP-500: campedo de vendas no mercado 
brasileiro 



Mas certamente nao e esse tipo de preo- 
cupacao que esta presente no usuario do CP- 
500. A preocupacao de Roberto Quito, por 
exemplo, foi com relacao ao sistema de refri- 
gerat;ao do CP-500, considerado por ele defi- 
ciente. "O transformador do micro tern um 
ventilador que, ao inves de refrigerar, espalha 
calor dentro dele. Nao ha exaustao. Depois de 
meia hora de utilizacao se tira o disquete do 
drive e ele esti frito. A Prologica poderia pelo 
menos canalizar a distribui5ao ou circulacao 
de calor dentro dele. Essa seria a solucao ade- 
quada. mas a minha foi a de adaptar um 
exaustor". 

A segunda observacSo sobre o CP-500 diz 
respeito ao amplificador de audio interne 
Alem da geracao de som no CP-500 ser dafi- 
cultada pela falta de um comando que fadtite 
o uso do sintetizador, os usuarios assinalaram 
falhas no projeto do amplificador de som da 
Prologica. 

Os drives nao passaram impunes pela mar- 
cacab dos usuarios. Com um ano de funciona- 
mento os dois drives de Roberto Quito apre- 
sentaram excesso de veloddade. Um pouco 
menos sorte teve Ivan Camilo que com ape- 
nas uma semana de uso do seu CP-500 come- 
90U a enfrentar problemas no drive, os mais 
diversos, e que nao foram resolvidos ate hoje. 



JR Sysdata: uma opedo mais barata 
na linha TRS 



No Digitus, por exemplo, o fato da sua 
UCP apresentar 2,5 MHz contra 2 MHz da do 
CP-500, Ihe confere maior agilidade no pro- 
cessamento de certas rotinas operadonais. Foi 
apontada tambe'm uma maior veloddade de 
gravacSo em cassete do DGT-100, sa"o 2 mil 
bauds contra, no maximo, 1 mil e 500 do 
CP-500. 

Quando usuario quer utilizar repeticSo 
de teclas encontra mais agihdade no DGT-1 00. 
Apesar desse ponto na*o ser de muita impor- 
tanda quando se trata da digita^ao de lista- 
gens,ele torna-se primordial em edicao e de- 
pura?a"o de programas. 

O equipamento da Digitus amda apresen- 
ta alguns recursos visuais, de traco e de linha, 
nao disponiveis no CP-500. No entanto, o 
CP-500 possui muito mais caracteres grafi- 
cos. De negativo, no DGT-100, os usuarios 
apontaram o chuvisco na tela, o que prejudi- 
ca a parte visual dos programas (prindpal- 
mente se forem jogos). 

Embora nao participando da discussao em 
tomo de drives, som e outras caracten'sticas 
presentes no DGT-100 e CP-500, os usuarios 
do JR da Sysdata manuveram um papo para- 
lelo onde assuntos como teclado, barulho do » 
equipamento e ate mesmo a incerteza quanto ^B 
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- Faga de seu Apple um eficiente detetive. entendendo como se pro- comandos ao compilador Forth - publicado em MS n° 22 — , inclusi- 



cessam as deducoes Idgicas na sua maquina, atrav6s do artigo Progra- 
mas que raciocinam, do prof. Antonio Costa. 

— Carlos Alberto Diz traz informacoes valiosas para que voce Mante- 
nha seus bytes sob con t role. 

— Outras palavras em Forth, de Ivan Camilo Cruz, implementa novos 



ve alguns bastante uteis para a programacao de jogos. 

- MICRO BUG continue com muitas novidades: dessa vez explica o 
comando M e as principais rotinas do Sistema Gerenciador de M6du- 
los do seu Sinclair. 

— MS traz ainda os programas CorrecSo de provas e calculo de 4reas. 
para os micros da linha TRS. 
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Os TRS brasileiros 
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A GERACAO RADIO SHACK 



a cornpatibiudadc dc scu cqiuparnenlo csave- 
ram preicntes. 

Coinadencia ou nio, o que deter minou a 
compra de urn JR, pelosdois usuinos presen- 
ter fol o preco desse equipamento. "Eu que- 
na um cquipamento da linha TRS, dissc Bru- 
no Sarlore, e o mais baruto era o da Sysdata'" 
"I'u tambem adquin um JR dcvido ao men or 
pre co desjc cquipamento e_por acrcditar que 

auando voce compra um rxjT-100, na verda- 
e, esli pagsndo mail pelo desagn e pclo le- 
clado", afirmou Francisco Laportc. 

Um teclado nab profissionaJ foi, na ver- 
dade. uma sai'da da Sysdata para podcr colo- 




DGT-1Q0; a versda mmetra do Modelo I 



car no mercado um produto mars competiti- 
ve a ni'vel dc preco F c justamentc dessc 
Ice lad o que reclamam os usuanos do seu cqui- 
pamenio. 

Depots dessa colcha de retalhos, onde cada 
usuino fez as sua* observapoet especiftcas fica 
uma pcrgunta no ar: o que. na vctdade, esta- 
na faitando aos usuinos da Imha TRS? Bern, 
satndo das, arrjculandades de tad a cquipa- 
mento. poderiamo* pensar cm core* e alia re- 
solucio grafica Algumas empresas, pensando 
nisso, ja cstffo oferecendo essas opedes aos 
equipamenios TRS I vide bloco sobrc penic* 
ncosi, 



Sistemas operacionais 



Dos (Disk Opera ting System), mats 
connect do entre nos como Sistema 
Operaciona] em Disco c uma palavra 
comum no vocabulirio dos micros da farnilia 
TRS, ja que estes nsremos controlam a ope- 
racio dos computadores que uiilizan 

Os sistemas operacionais que acompanham 
nossoi micros sfo baseados em dou famoso* 
DOS amencanos: TRS DOS da Radio Shack e 
NEWDOS da Apparat Inc. O primeiro serviu 
de espclho a Protogica no DOS-500doCP-500. 
c scgundo a Digitus no D1GDOS do 
DGTI0O0. 

M£m do DOS, o* usuinos da famttia TRS 
tambem contain com Siitem* Operacional 
CP/M. Optional, clc consta da lista de peri fe- 
nces da Digitus. Kemitron, Sysdata e algumas 
empresas como PS I, Progus e Microsol estio 
comer caalirando placa CP/'M para o CP-500. 



Nfo faremos aqui uma analisc do* Siste- 
mas Operacionais em Disco normalmcnte co- 
merciaJizadof nos Estados Unidos c aqui no 
Bn.il, inclusive porque MICRO SISTEMAS 
ja dedicou uma dc suas edicdes a aniuse c ca- 
racteristicas desset sistemas * MS, n° 25). 

Os usuinos de micros TRS no Brasil nao 
precisam dear hmitados apenas aos sistemas 
que acompanham o seu micro. Dtvcrsos ou- 
tre* DOS tDOSPLUS, NEWDOS. LDOS.eic.) 
*4b encontrados cm muitas lojas que comer- 
ciakzam miCTOcomputadorcs e sab conscgut- 
dos ou a partsr de um bale-papo discrete com 
vendedor, cm algumas delas. ou atraves do 
pedido formal e direto, em outrai. Para ou- 
tros, a sai'da (em si do recorrer aquele amigo 
que conseguiu sistema original, copii-lo e 
tirar uma xerox do manual. 



O que normalmcnte acontecc, ncssa linha 
dc cquipatnentos, segunda os lajistas, sa"o 
usuinos do CP-500 mteressados no NEWDOS 
■: .-is .[•:• in , ] 1 1 'i hi in(BRaado»m>inanuKlda 
NEWDOS, J.ii que manual do DIG DOS foi 
apontado por muitos como carente de mfor- 
macdes. 

Aqui vao os precos dos Sistemas Opera- 
cionais em Disco originals encontrados man 
faciEmenle nas lojas do Rio e Sa*o Paulo 

■ 1 R5DOS Radio Shack (com manual) - 
9.65 ORTNs 

• Nt'WDOS - Apparai Incorporation (com 
manuali - 9,65 ORTNs 

• DOSPLL'S Micro System Software <com 
manual* - 10 ORTNs 

• LDOS - Logical System Incorporation 
fcom manual! - 9 ORTNs 



Tendencias da Linha TRS 



Na ultima Feira de InformaQca no 
Par que Anhembi, em Sfo Paulo, en- 
tre fcixes de raio laser e novidades na 
ire a de computaca'o, assulimos a um fa to 
cunoso: uma avalanche de lancamentos na li- 
nha Apple c poucos lancamentos na linha 
TRS. Sem estardalhaco. apenas duas empresas 
estrearam no mercado TRS, a Engetecnica Va- 
m e a Novo Tempo. O que estana acontecen- 
do com a linha de equipamentos TRS no Bra- 
sal"? Sera que os micros Apple se lomaram um 
concorrente seho para 01 TRS? Ou seri que as 
potentes maquinas de 16 bits jicomecaram a 
por as unhas de fora. mibindo o mercado dc 
8 bits? 

Nao podemos deixai de no* cspclhar no 
mercado amencano e acreditar que lanca- 
mento do Tandy 2000 pela Radio Shack, um 
cquipamento de 16 bits nao mais compativei 
com a chamada Imha TRS, e sem duvida um 
anal dos tempos. Mas de la para d eaminho 
costuma ser hem mais longo c ni com alguns 
desvios, a histona tern provado isso. Scndo as- 
fim, ainda sobram muitos outros parimeiros a 
ierem estabelcados aettt oucslffo, 

Ai opimoes a respcrto oessa provlvel estag- 
nacao da linha TRS no Brasil sflb as mais va- 
riadasu Carlos Diz. que vem acompanhando de 
perto hi treze anos o mercado de micros no 
Brasil (atualmente £ socto-gerente da Cum- 
pusystcm, software house espcciahzada em 
banco de dados), considcra o cquipamento 
Apple um forte concorrente da linha TRS 
dentro do mercado profissonal/comercial. 
Nfo pela sua versa tiUdade, recunoi de cores 
ou alia resoluca"o grafica, mas sim pela poli'ti- 



ca de marketing que os fabneuntes dessi li- 
nha de micros vem adotando, cspecialmente a 
Unition, apolando o revendedor e ate mesmu 
o usuino. que ja nfo acantece com os fa- 
brieantes da linna TRS. 

"O Apple so e eonconentc por esse as- 
pecto", frisa Carlos Diz, "porque eu acre di to 
que o TRS -80 apresenta o necessixio ao usui- 
no que pretende Qtitizar micro na area pro- 
fisaonal'comerctal. Nesse uunpo, a pessoa 
busca eficienaa. rapidez, precisao. mas quer 
tambem um objeto deliabalho agradivct. um 
video que nfo canse a vista, uma tela de bom 
tamanho. O TRS (DGT-1000 e CP-500) tern 
video de fosforo verdc e sua tela possui 24 
coluiuu i mais que o Appte. Vendidoem par- 
tea, se a pessoa quiser que um Apple tenha 
todas as vantagens que ofcrece um Modelo 1 
ou III teri que gastar mats din heir o com im- 
plcmentacoes extras". 

Com relacfo a entrada em cena dos micros 
dc 16 bits, Carlos Diz aeredita que ainda e ce- 
do para se falar nisso senamente no Brasil: 
"nib podemos ter neccsndadc por 16 bits 
quando hi Lies anos atras nfo tinhamos ncm 
para 8 bits"- Entrctanto, Ernesto Camck), 
com larga expcncncia na revenda dc micro- 
corn pu (adores pow miaou no mercado em 81 
como gcrenu da primcira loja dc micros do 
pais: a Computiquc, aeredita que os micros 
de 16 bits cheganun no Brasit para ficaj. 

"Hoje cles am da nab sfo conconentes do 
•TRS, mas o preco dos dc 16 bitsvai cair. isso 
e uma questfo de atuaBiacio (ecnologica. A 
nivel intemacional os 8 bits estab em sobre- 
vida. O usuino no Brasil talvcz nao necessite 



rra dc toda a capaddadc que os dc 16 bits 
rece. mas tambem corrc o hsco de Hear 
desatuahzado da qui a alguns anos. Para a li- 
nha Apple ainda dou majs un.s dois anos dc 
vida ncssa concorrenaa. mas o Modelo TRS 
tsti entrando cm declfnio. Essa diferenca esta 
sen do determinada pela propna postura dos 
fabneantes dessas linha s"'. 

Tcmos que reconhecer que nessa questab 
podemos fazer previscles, baseados no desen- 
volvimento do nosso mercado e ate mesmo 
a partir dos nimos que a industna dc micros 
vem tomando nos Estados Unidos, mas asse- 
gurar qual sera o destmo dos micros TRS no 
nosso pais e quase imposstvel. As provisoes 
esilo u, as questoes *So essas e mullas outras, 
cvidentcmenie. rcsto... so o tempo dira. 



Apur*fJfo SP: Cliiudia Ramaiho e Simla 

Lach ttrmach^r 

ApunpSo RJ: Denis* Pragant, Gnpa Santos a 

Ricardo Inojosa 

T&xto final: Grafai Santos 
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SINTA NOS DEDOS ESTA NOVA 

CONQUISTA 



Ja nao 6 preciso escolher. Agora voce tern o microcomputador DGT— 1000, com design moderno 

e novas incorporacoes que Ihe conduzirab a decisab carta. 

O DGT— 1000 6 modular e dependendo da sua necessidade ele se expands at£ um grande sistema. 

A DIGITUS Ihe assegura a possibilidade de expansao do DGT— 1000 

atraves das interfaces que comercializa: 



Interface printer, paralela para impresaora tipo centronis. 

Interface para unidade de disco flexrvel 5 1/4 fare" 4 

unidades da 184 KB cada). 

Expansao de mem6ria art 64 KB. 

Interface color ida com alta resoluqao grafica 

I nterf ace RS 232. 

Sintetizador de voz. 

Sistema operacional DGP/M totalmente compatfvel com 

CP/M (com o DGP/M voce* poderi usar os famosos programas 

WORDSTAR a dBASE II). 
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Integra^ao numerica 



Trazemos para voces dois programas que executam 

integracao numerica nos micros compati'veis com o ZX-81 (TK, 

NE, CP, Ringo e AS 1000). O primeiro baseia-se no metodo 

de Simpson e o segundo, por "Pontos Discretos", 

da a oporrunidade de escolha do metodo a ser utilizado: 

Simpson ou Trapezio. Vamos a eles. 



Metodo de Simpson 



Roge'rio lerusalimschy 



Este programa ressalta a importan- 
cia da funcao VAL em microcom- 
putadores compati'veis com o 
ZX-81, utilizando o metodo de integra- 
gao numerica por Simpson. 

Como este me'todo e" iterative ou se- 
ja, a funcSo a ser integrada deve ser cal- 
culada para diversos valores de X, have- 
ria a necessidade de se colocar lima sub- 
rotina contendo a F(X) em uma deter- 



minada linha do programa. Como no 
BASIC destes micros nao existe a possi- 
bilidade de se programar uma funcao de- 
claracao (como em FORTRAN, por 
exemplo) nem tampouco existe a ins- 
trucSo DEFFN, a melhor maneira de se 
contornar o problema e utilizando a 
funcao VAL. A funcao a ser integrada. 
F(X), e armazenada em uma variavel al- 
fanumerica FS logo no inicio do pro- 



PASSO 


DISPLAY (TV) 


1) Carregar o programa 

2) SIN(X) 

3) 

4) PI/2 

5) 15 (n Irapar ?'. ) 

6) 30 

7) S 

8) 10 

9) N 


ESCREVA A F(X) E APERTE NEWLINE 
ENTRE C/ O LIMITE INTERIOR 

ENTRE C/ O LIMITE SUPERIOR 

ENTRE C/ N (TEM QUE SER PAR) 

ENTRE C/ N (TEM QUE SER PAR) 

1 = 1 

DESEJA CALCULAR P/ NOVO N ? (S/N) 

ENTRE C/ N (TEM QUE SER PAR) 

I = 1.0000034 

DESEJA CALCULAR P/ NOVO N ? (S/N) 
9/370 



grama e calculada atraves de VAL F$ 
tantas vezes quantas forem necessarias 
durante o processamento. 

Provavelmente alguns de voces esta- 
rao pensando: Por que nSo usar a fun- 
cao GOSUB? Simples: usando VAL F$ 
ganhamos tempo duas vezes. Primeiro, 
nao precisamos listar o programa para 
procurar pelo local reservado para a nos- 
sa funcao; em segundo lugar, o tempo 
de processamento 6 bem menor, ja que 
o micro nao precisa procurar pela linha 
da instrucao GOSUB e retornar a esta. 
Aldm de tudo, o programa fica bem 
mais elegante e ]i entra rodando logo 
ap6s o seu carregamento. 

Vamos agora a algumas considerasoes 
a respeito do metodo. Atraves do meto- 
do de Simpson podemos obter, com 
uma boa aproximacao ou ate mesmo 
com exatidao, a integral definida de 
qualquer funcao real. Para tal, precisa- 
mos entrar com a formula exph'cita para 
a funcao F(X), com os limites inferior 
(X ) e superior (Xn) e com o mimero de 
intervalos (N), o qual tern que ser um 
numero inteiro par. A partir dai", o valor 
da integral definida de F(X), de X a 
Xn, sera calculado pela regra de Simp- 
son, ou seja: 



F(X)dX = h F(X„> + 4F(X, ) + 



r" F(X)dX „ _h_ F 



Figura I - Para cada valor entrado ou calculado, haverd a respectiva impressdo na tela. Assim, 
ao final do cdlculo, haverd um completo registro de toda a operacdo. 

60 



+ 2F(X,) + . . . + 4F(X„ ,J + 2F 
2 n-3 

(X n-2> + ^Vl' + F(X n>] 
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Metodo de 


Si 


mpson 






REM **** PROGRAMA DE ROGERI 


155 


PRINT AT 11,1;"N"=";N 




O IERUSALIMSCHY. (1/1/1983)**** 


160 


LET H=(XN-X0)/N 


10 PRINT AT n,0;"«BBBttHfE 


165 

170 


PRINT AT 13,1;"H=";H 
REM METODO DE SIMPSON 


^■-l*H'f JM.'IHHHBI " 


20 PRINT AT 1,2;"=>ESCREVA A P 


180 


PAST 


(X) E APERTE<=";AT 3,10;"< NEWLI 


190 


LET X=X0 


NE >" 


200 


LET ACUM=VAL F$ 


30 INPUT F$ 


210 


LET X=XN 


39 REM 11 ESPACOS EM BRANCO NA 


220 


LET ACUM=VAL F$+ACUM 


LINHA ABAIXO 


230 


LET X=X0 




40 PRINT AT 3,10;" 


240 
250 
260 
270 


LET P=2 
FOR 1=1 TO N-1 
LET X=X+H 
LET P=6-P 








50 PRINT AT 2,0;"F(X)=";F$ 






280 
290 
300 


LET ACUM=VAL F$*P+ACUM 

NEXT I 

SLOW 








70 PRINT AT 7,1;"=>ENTRE C/ O 


LIMITE INFERIOR<=" 


309 


REM 16 ESPACOS EM BRANCO NA 


80 INPUT X0 


LINHA ABAIXO 


89 REM 30 ESPACOS EM BRANCO NA 


310 


PRINT AT 16,4;" 


LINHA ABAIXO 
90 PRINT AT 7,1 f" 

100 PRINT AT 7,1 ;"X0=";X0 


320 


1 














110 PRINT AT 9,1;"=>ENTRE C/ O 


330 


PRINT AT 16,1;"I= ",ACUM*H/ 


LIMITE SUPERIORS" 






120 INPUT XN 

124 REM 30 ESPACOS EM BRANCO NA 














LINHA ABAIXO 


350 


PRINT AT 20,0; "DESEJA CALCU 


125 PRINT AT 9,1;" 


LAR P/ NOVO N? (S/N)" 


■ 


360 


IF INKEY$="S" THEN GOTO 390 


130 PRINT AT 9,1;"XN=";XN 


J/0 


IF INKEY$="N" THEN STOP 


135 PRINT AT 1 1 , 0; "=>ENTRE C/ N 


380 


GOTO 360 


(TEM QUE SER PAR)<=" 


389 


REM 32 ESPACOS EM BRANCO NA 


140 INPUT N 


LINHA ABAIXO 


145 IF N/2-INT (N/2)<>0 THEN GO 


390 


PRINT AT 20,0;" 


TO 135 






147 REM 32 ESPACOS EM BRANCO NA 


400 


GOTO 135 


LINHA ABAIXO 


500 


SAVE "SIMPSON" 


150 PRINT AT 11,0;" 


510 


GOTO 10 



onde 



Ml I DIM) 1)1 SIMI'SDN 



Liaite Inferior 
Linite superior 
X Q ♦ in j i - 1.2. 
X. - X. 



• Nuaero de intervalos (inteiro par) 

Apesar de nao haver grandes diferen- 
cas em termos de esfor?o computacio- 
nal entre os metodos de Simpson e dos 
Trapezios para o mesmo numero de in- 
tervalos (as operacdes sao, de certa for- 
ma, semelhantes), o metodo de Simp- 
son fornece uma aproximacao bem me- 
lhor, o que o torna mais eficiente e ri- 
pido que o metodo Trapezoidal. 

Para que voces possam ter uma ide"ia 
melhor sobre o funcionamento do pro- 
grama, trazemos, na figura 1 , o procedi- 
mento para sua utilizacao, tomando co- 
mo exemplo a integral a seguir: 

^ V2 n V2 

( SEN(X)dX= - COS(X) = - COS 

/o 

( \ ) - ( -COS ( ) ) = + 1 = 1 

A figura 2 mostra como fica a tela 
apos uma rodada, e a figura 3 relaciona 
tempo (T) e precisao de resultados (I), 
para diferentes numeros de intervalos 
(N). Observacao: T e" aproximado. 
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F(X)=SIN X 



X0=0 

XN=1. 5707963 

N=30 

H=. 052359878 



1= 1 



DESEJA CALCULAR P/ NOVO N? (S/N) 



Figura 2 



N 


I 


T 
(SEG) 


6 


1.0000263 


1.4 


30 


1.0 


3.2 


50 


1.0 


4.8 


100 


1.0 


8.0 



Figura 3 



Rog6rio lerusalimschy 4 estudante de Enge- 
nharia de Telecom unicacdes na UFF, onde 
cursou FORTRAN, Cdlculo Numdrico, Micro- 
processadores e Computadores digitals. E pro- 
fessor de BASIC na Microcenter e na UFF. 



GLOBUS 

Alta performance 

para sistemas de 

processamento 

de dados. 

Impressora M-180 




Impressora matricial de impacto com 
velocidade de 180 cos. 

Projetada para servir como periferico 

a qualquer sistema de 

processamento de dados. 

Desenvolvimento Globus, 

utilizando-se de tecnologia de ponta 

em impressoras matriciais. Grande 

flexibilidade de software, com 

operagao facil e performance 

garantida. Alem de todas as 

interfaces disponiveis. e compativel 

com sistemas IBM. 

Impressora M-340 X 




Impressora matricial de impacto com 
velocidade de 340 cps. 

A M-340 X e a nova designagao da 

M-200. Esta e a impressora matricial 

mais rapida disponivel no mercado. 

Devido a sua alta performance e 

confiabilidade tern merecido a 

preferencia para utilizagao em 

sistemas de processamento de 

dados. Possue interface para sistema 

IBM. A Globus produz linha completa 

de impressoras para todas 
aplicagOes, alem de dispor de pegas 
de reposigao para entrega imediata. 




— GLOBUS DIGfTPL S.P. 

EOm«M£N10S «WF*8KOS 

MUITO MAIS DO QUE MAQUINAS 

SIGNIFICASERVICO 

Matriz e Fabrica: Rua Isidro Rocha. 1057 
CEP 21 241 - Tel.. 372-4385 - Telex (021 ) 31 991 
GLDG - BR - Vigario Geral - RJ - Brasil 
Filial: Rua Stella, 51 5 - Bloco H - Grupo 21 
CEP 0401 1 - Tels.: (01 1 ) 231 -2586/571 -4642 ; 

Telex(011)38688-GLDG-BR ! 

Vila Mariana - Sao Paulo - SP 

VASTA REDE DE DISTRIBUICAO 





TODA A LINHA 
DE MICROS E 
MINICOMPUTADORES 



A informacao nas pontas dos seus dedos 



Gerenciador de 
banco de dados 



Sisiemaa operacioneie: 
MS-OOS (IBM-PC) CP/ 
M CP/M-86 CROMIX 
COOS MP/M MP/M-86 

□ Cursor enderecavel 
para o uao de funcoaa 
fullscreen. 



Automacao 
de escritdrios 



"i* 



Requerimentos do 

Sistema: 

D (Mlcroprocessadorea 8080, 

8065, Z80, 8086, 8088) 
G 64K p/ CP/M; 128K pi CP' 

M-86 e MS-DOS; 56K p 

Apple II 
. 2 Dtsketes el mlnkno de 

126K cada 

Terminal c 80 colunas e 

cursor endetecavel 
D Impressora com no mfnt- 

mo 80 colunas. 



Dtamac (■*<• 8.100) Mtcixxflgital (TKa 83/85 2000) 
CP's 200/300/500, Im p re— or— , etefcra. eigln, dlsmec 
Mlcroenosnho I a N e Apple Tronic 



Suprimentoa 

Mcoe Megnetfcoe: SMB. 16M8, 80MB. etc 

Dtutcttm: 5 1/4" 8 simple* e dupla 

£tk}imu* (virim irmrcaa) 

FltM MagneOce: 600. 1200 e 2400 Pes 

fltaa p/fmp/eeeora*. ettbra, dtailab. dlebto, centrocic. 

etc. 

Qwtucftoe Cobra 400 

Pasta* e fosmuMrioa conUnwos 



End. Rua da Lapa, 180 gr.1108 a 1110- CEP 
20021 — Rio de Janeiro — Tel.: (021) 221-3069 



TRANSFORME A SUA 

MAQUINA DE ESCREVER 

OLIVETTI ET 121 

EM IMPRESSORA 

DE COM PUT A DOR 



Com a Interface da DW121 sua maquina 
de escrever OLIVETTI Eletronica ET 121 
se transforma em uma impressora dealta 
qualidade para textos ou programas, sem 
alterar as caracterfsticas originais da ma- 
quina. 

Instalado iniernamente a Interface conta 
com um buffer de 2K bytes e uma serie 
de comandos especiais para a confeccao 
de textos, taiscomo: sublinhamento au- 
tomatico, negrito automauco, compri- 
mento de linha programavel e outros, po- 
dendo ser acoplado a qualquer tipo de 
MINI ou MICRO COMPUTADOR que te- 
nha safda SERIAL RS 232C/Standard ou 
Paralela 8 bits Centronics. 

Solicite maiores informacoes a 

□flISV LLlHEEL eJetrfinicB 

INDUSTRIA E COMERCIO LTDA. 

Uma Divisao da ESFEROMAC Ltda. 
Rua Antonio Comparato, 200 
Tels.: 532-01 54 e 240-4829 
CEP 04605 Sao Paulo - SP 



INTEGRAQAO NUM^RICA 



Pontos Discretos 



Car /os Alberto Mat tana 



Frequentemente, nas experiencias 
relacionadas com Fi'sica, Matema- 
tica e Engenharia, precisamos cal- 
cular a integral defmida de uma funcao 
da qua! conhecemos apenas os limites de 
integracao e seus valores em pontos 
equidistantes entre os limites. Para cal- 
cular um valor aproximado para a in- 
tegral, podemos usar dois mdtodos, co- 
nhecidos como regra de Simpson e re- 
gra do Trapeao (mais informacoes sobre 
eles podem ser encontradas em qualquer 
livro de andlise numerica). 

Para facilitar este ca^culo, este pro- 
grama permite utilizar ambos os me"to- 
dos. Foi escrito em BASIC para o 
TK82-C mas poderd ser adaptado para 
rodar em qualquer outro micro. 

Vamos analisar um exemplo de apli- 
cacao. Suponhamos que queiramos cal- 
cular a integral de uma funcao F(X) en- 
tre os limites de integracSo a=0 e b=5, 
conhecendo os seguintes valores para 
F(X): F(0) = -1; F(0.5)= -0.675; 



F(l) = l; F(1.5)= 4.625; F(2)-ll; 
F(2.5)=20 875; F(3)-35; F(3.5)-54. 
125; F(4)-79; F(4.5) -110.375; 
F(5)-149. 

Apos a digita^o do programa e de- 
pois de pressionar RUN, aparecera na 
tela o nome do programa e um pedido 
para a entrada do intervalo H entre os 
pontos X. Devemos entao escolher qual 
o metodo a ser utilizado. Digitamos os 
valores de F(X) um a um, obtendo as- 
sim uma aproximacao para a integral. 
No nosso exemplo, a integral vale apro- 
ximadamente 194.6875 empregando a 
regra do Trapezio, e 193.66667 usando 
Simpson. 



Carlos Alberto Gomes Mattana estuda Ffsica 
na PUC/RJ e 6 programador da Ajax Cia. 
Nacional de Seguros, trabalhando com a lin- 
guagem MUMPS em um Medidata M-2001. 
£ tambe'm usudrio de um Apple II. 













Pontos Discretos 






1 LET N=1 


41 GOTO 81 




2 LET S=0 


53 PRINT AT 6,25;CHR$ 151 


3 LET SP=0 


55 PRINT AT 9, 0; "F(X" ;N-1 ; " )? 


4 LET A$="REGRA DE SIMPSON" 


" 


5 LET B$="REGRA DO TRAPEZIO" 


59 INPUT FX 


7 PRINT TAB 6; "INTEGRACAO NUM 


61 IF N=1 THEN LET F0=FX 


ERICA"; TAB 6;"POR PONTOS DISCRET 


63 IF N/2=INT (N/2) THEN LET S 


OS" 


=S+FX 


9 PRINT AT 3,0; "INTERVALO ENT 


65 IF N/2=INT (N/2) THEN LET S 


RE OS PONTOS?" ; 


P=SP+FX 


1 1 INPUT H 


67 PRINT AT 9,0; "OUTRO PONTO? 


13 PRINT ,"H=";H 


(S/N)" 


15 PRINT AT 6,0;A$;" - > SIMP" ; 


69 INPUT T$ 


AT 7,0;B$;" -> TRAP"; 


71 IF T$="N" THEN GOTO 77 


17 INPUT C$ 


73 LET N=N+1 


19 IP C$="SIMP" THEN GOTO 53 


75 GOTO 57 


20 PRINT AT 7,25;CHR$ 151; 


77 LET I=H*(4*S+2*SP-F0-FX)/13 


21 PRINT AT 9,0;"F(X";N-1 ;")? 


79 LET B$=A$ 


■ 


81 CLS. 


23 INPUT FX 


83 PRINT TAB 6 ; " I NTEGRACAO NUM 


25 IF N=1 THEN LET F0=FX 


ERICA"; TAB 6 ; " POR PONTOS DISCRET 


27 LET S=S+FX 


OS" 


29 PRINT AT 9,0; "OUTRO PONTO? 


85 PRINT AT 3,8;B$ 


(S/N)" 


87 PRINT AT 5, ; "N=" ;N; AT 7,0; 


31 INPUT T$ 


"H=";H 


33 IF T$="N" THEN GOTO 39 


89 PRINT AT 9 , ; "INTEGRAL -> " 


35 LET N=N+1 


;I 


37 GOTO 21 


91 STOP 


39 LET I=H*(S*2-F0-FX)/2 






m 



R Clappy tem tudo 
pra voce levar o 



computador certo. 



Na Clappy, alem de voce encontrar a melhor solugaopara 
o seu problema, voce encontra tambem assistencia tecnica 
propria, cursos de prog ram acao e operacao, consultoria, 
"softwares", perifericos, suprimentos e a 
implantagao de sistemas aplicativos 
comerciais e de apoio a decisao. 

APUCA T1V0S COMERCIAIS 

Contabilidade 

Controle de estoque 

Folha de pagamento 

Contas a pagar e a receber 

Alem de qualquer outra solugao que 

a Clappy pode desenvolver para voce. 



APUCAT1V0SDEAPOI0A DECISAO 

Planilha Financeira 

Processamento de textos 

Mala Direta 

Cadastro de Clientes ^5^°° 

Controle Financeiro. \\ 

AP II -Clappy 

CPU com 64 Kbytes, placa CP/M, 
2 drives, monitor de video 
Instrum e impressora de 
100 cps. 37 ORTNs mensais* 

' Taxa de leasing em 27.02.84 



unitron 




Clappy 



Venha a nossa lojaou solicite a visita 
de um representante. 



CEN7W: 

Av. Rio Branca, 12 loja e sobreloia 
Tel: (021) 253.3395 

CEfimO: 

Rua Sete de Setembro, 88 ■ loja Q (Galena) 
Tels.: (021) 222.5517 - 222.5721 

COPACABANA: 

Rua Pompeu Loureiro, 99 Tels. : (021) 257.4398 ■ 236. 7175 

Aberta diariamente das 10 as 20 horas e aos sabados das 10 as 15 horas. 

Estacionamento proprio. 
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Conheca o perfil de sua dfvida domestica e adote estrategias eficientes 
para o trinomio renda/poupanca/consumo em seu micro da linha TRS-80 



OBJETIVO 



Orcamento domestico 



Uma das tarefas mais ingratas 
a se realizar em tempos de 
dmheiro difi'cil e o controle 
do orcamento domdstico. 
Colocar ordem no caos das financas 
pessoais as vezes pode ser tao 
complicado que se torna prefen'vel 
continual na ignorancia de como os 
gastos se distnbuem scgundo os itens 
de consume diversa"o, investimentos, 
poupanca. dividas, etc. 
Um controle orcamentario eficiente, no 
entanio.e' a mola-mestra de quaJquer 
organizacao que se preze. e o lar na"o 
pode ficar a parte dessa consideracSo. 
E para fazer este controle de orcamento 
de maneiia eficaz, nada melhor do que o 
microcomputador. 
Ouando se conhece o perfil da divida 
domestica. pode-se enta"o adotar uma 
se'rie de estrategias eficientes para o 
tnndmio renda/poupanca/consumo, 
redimensionar os gastos segundo 
priondades reais. bem como evitar 
despesas srjpe'rfluas. 

Um controle dc contabilidade domestica 
nao necessita ser tao sofisticado a ponto 
dc afugentar qualquer pessoa mcnos 
afeita as minucias do gcrcnciamento 
contabil de uma empresa de grande 
porte. mais importante e manter sob 
controle alguns itens padroes de gastos, 
os quais sa"o utilizados como parametros 
para se levantar o perfil da divida 
domestica. 



Luiz Gonzaga de A/varenga 



Controle de Orgamento Domestico 



:FORE e l IOlOU:NEXT 



10 GOT050 

20 F0RE=1T0300:NEX1 :PRlNTi)V 33 , " 

JO PRINT3933,"ENFER"; 

40 LS»XNKEY**IFL*»''''THEN20ELSECLSsRI IURN 

50 'CONTROLE DE OkLAMENIO UUMLS dLO - LUIZ G. DE ALOAkENUA. MA 

RCO 1983. 

60 DIMYC5,5> 

70 J^l 

80 cll; 

90 Y=21:| -0RX=QT012/:'JL1 vX.Y) :NEX1 

100 Y»28iF0RX»0TDl27t8E1 <X,^ ) :NEXI 

liu PR1NTCHRK23) 

120 PftINTaS2A,"0RCAMENI0 DOMES! ICO"; 

130 i ORX llOi0U0 = NLX1 

14U CLS 

ibu I ORS 1 i 05«l OR i i >5sR£ADAS<S,T ) :NE> I • , 3 

160 INPUT'OuEr Instrucoefi <3/N)'-;XX'i 

1/0 IF XXI "S IHEN1260 

180 INPUT'Quer lcr arquivu dc dados (6/N)"|LLl 

190 IFLLiO"S" IFIEN29U 

200 PRINVPREPARL CASSETE E DIG1TE 60' : INPUT NN 

210 UNN<6U0RNN>60THLN20U 

220 CLS 

230 PRINT'LLNDO DADOS..."; 

24U I ORB = 1105 

250 INPUTH-1,R(B;,X<B> 

260 NEXTU 

270 lNPUTH-i r FF4 

280 G0T01410 

290 CLS:INPU1"0rcaiuento referents ao ties di,:";lli 

30U CLS*INPUT"Qual a renda prevista";!! 

310 CLScPRINT'UBTA DL DESPESAS" j 

320 F0RD=»tTO5*PRINI -rk IN i A4(0,U, --NEX I 

330 PRINT 

340 roRi=i roa 

350 PRINT"<S1GA A NUMERACAO DOS ITENS>"3pRINl "'.HEM ANtLRiORS" 

■0")" 

36U INPUV'Entre com a namcr u" ;A( 1 > 



O progiama aqui apresentado tern como 
objetivo permitir levantar o perfil de 
uma divida domestica segundo itens 
padronizados, comuns a grande maioria 
das pessoas de classe me'dia. Isso porque, 
em geral, a receita provem unicamente 
de um salario percebido, o que torna 
interessante detetar os itens mais 
sujeitos a provocar deficits no 
orcamento. 

Com ele. pode-se fazer uma previsao 
antecipada dos gastos do mes e, 
posteriormente, confrontar esta previslo 
com os gastos efetivamente realizados. 
Os itens utilizados sSo formados por 
subitens que cobrem toda a gama de 
despesas domesticas. Cada item possui 
subitens que sa"o comparados 
percentualmente com a renda prevista; 
sSo apresentados tambdm subtotais 
parciais e subtotais acumulados. Alem 
disso, uma listagem completa pode ser 
pedida a partir dos itens ou subitens. 



GASTOS EM GRAFICOS 



progiama apresenta, tambe'm, um 
grafico em barras. o qual perrrute uma 
fa til e eficiente visualizacao da 
distribuicaO dos gastos domdsticos, o 
que e util para se local izarem os itens 
de maior peso no orcamento. 
Foi prevista a gravacao (em fita cassete, 
para arquivo) unicamente dos itens 
principals de controle, pois e" por sua 
comparacSo que se pode prever e 
controlar a evolucao da divida 
dome'stica. 

progama Controle de Orcamento 
Domestico - e" auto-elucidativo e nao 
oferece dificuldades quanto ao seu 
processamento. Na"o se cogitou lncluir 
calculos utilizando variaveis de dupla 
precisao, entre outras razoes, pelo 
pequeno niimero de zeros da maioria 
dos salarios... 

A gravacao e leitura dos dados e feita 
em pouco tempo. Como cautela, devem 
ser usadas fitas de boa qualidade, com o 
que se podera" evitar a introducao de 
erros durante a gravacao. 



Luiz Gonzaga de Alvarenga e" te"cnico de Tele- 
comunicapdes e trabalha na Embratel, em 
Goiinia, onde reside. 



3/0 IFA(X)<10RA<I> >5fHEN36U 

380 CLS 

390 PRINTAiCAd) ,0) 

400 F0R0-1T0SIPRIN1 M'RINT A*<A( I ) t Q)=NLXT : PR INT 

410 PRlNT"Entrada de valores?" 

420 INPUT" <S/N)"jRi 

430 IFR*< >"S"THLNCLS:G0r0310 

440 CLS 

450 f 0RQ-1T05:PR1NTA1.<A(I>,Q> 

460 INPUT"Quant ias";YCI,Q> 

4/0 PRlNT"Ualor correto (S/N)"; 

•480 1NPUTE4:IFE1="S"FHENCLS: GOT 0500 

490 1FES="N"THENCLS:U0T0460 

500 L=L+Ytl,Q) 

510 0=0*Y<I,Q> 

520 R(1)=0 

S30 NEXTtf 

540 PR1NT3603, 'kLNUA = CrS" ; B : Ph IN I 3660, "SUB I I AL ACUHULADv: C 

r V;L: IFL >B THENPR IN I 3693 P "EXCESS0"ELSE550 

550 PRINTB725 r "SUBT0TAL PARCiAL: L'rt"yOsX( 1 )- INK (V/B > «100) sZ~ 

Z + X(i):IKX(I)>100THENPRINri)/5/,'EXLLL,iO"ELSEPRlN!a)/55,X(l>"Z" 

560 INPUT'Outro item <S/N>" ;U*J0-0 ' 1 s IF 0=5 I HENW^U LIG0T066U 

3/Q W^B-L 

580 lFD*t )"S"TFIEN6&U 

1 j90 = 

600 CLS = NEXTl:iJ0T031U 

610 DAIA "1 1AXAL PUBL1CAS" , AGUA,LUz: , 1 LLEF 0NL,GAS , 1MP0S1 OS 

o^'O DATA "2 GASTOb C/IMOOEL" r PRESTACA0, ALUGULL ,C0ND0MIN 10,C0 

NSEKTOS,Kt.l ORMAS 

63U DATA '3 UA3 I 0. F 1X0S" , ESCOI Ai,Lu JAS , uANUOt; , CLi^DLS „MLSA0A 

5 

640 DAIA "4 - GAS 1 OS D10LKL,0S" , GASOLlNA/IKANSPOR TE, SUPER riERCH 

DO/FEIRA r FERlAS/VIAGENS/LAZER r JORNAiS/LIV./REViSrAS,faEKVICOa D 

OflELl 1C01> 

650 DAFA "3 - GAhJIOS L0i.NI UA1 : 3", ROW Y.S/UN II OKHLS ,MA1 LR1 AL ESCO 

LAR r 0E8P. MEOICAS/FARMAClA.CONSERTOa DI0ER30S.NA0 ESl'tCli ICADO 

S 

66U 1'klNVEs.colha rtlacao dc ifcei 

6/0 INI Ul KLLACAO TOTAL ti) t'AkCIAL <2> ArtBOS <3>";K 

680 IKK'. loKK>JIHLN66Q 

690 ONKGOIO/O0,/tJ0 r B70 

/00 I 0RI = iT0ti 

/10 (ORu-lTOS 

720 PRINTA*CA(I> r a) r " Cr*";Y(l F Q) 

/30 H( I > = IN1 ( IX<.I>*31)/1U0; 

740 NEX1Q 

750 IFI=3THENPRINT8926,"TECLE (ENTEfi) P/loni 1NUAR" SG0SUB20 

/60 NEXfl 

770 IF J^-1IHEN910 

780 PkINTa926,"TECLE <LNTLR> I'ARA EON I 1 NUnl. ' •- 00SUB2U 

/90 PR INI 

800 PR IN I 325, "MES DE: ";FF-t 

810 F0R1=1I00 

820 PRINTAiCAd) ,0)," Crt";RU), 

B30 H( I I -INI ( <X< 1 >*3i >/100) 

840 PRiNlXU>;"X" 

850 NEXri:IFK=2rHLN880 

860 1FJ= 1G0T0880 

8/0 J=J:G0T0/00 

880 PRlNTa66O,"T0IAL PERCENTUAL : ' ; , L ; "%" 

890 J,FL>BTHEN900ELSEI'RINTq)832, "RENDA PREVISTA DESPESAS Cr* ; 

U:G0T0yi0 

900 FH=<L-B) SPRINT 3832, "DEFIC11 

910 INPUI"Quer rever relacao de 

920 IFTl="S"THENJ=l:G0T0660 

930 INPUT'Quer grafico em barra dps dados CS/N)";G4 

940 IFGtO"£"THEN1120 ELSE950 

950 CLS 

960 T=100 

970 F0RX=0T0120sSET(X,44):NEXT 

980 F0RY=0F046:SET(10,Y) :NEXT 

990 PRINT3968,"T.PUBL. G.IMOO. 

1000 F0R0=256T0896STEP64:PRINF3U, T-:T=T-10:NEXT 

1010 X=2i 

1020 FORI=1TOO 

1030 -F0RY=43T0(43-H(I ) )STEP-i 

1040 SET(X,Y) 

1050 NEXTY 

1060 X=X+18 

1070 NEXTI 

1080 PRINT380,"TECLE <3> PARA TERMINAR"; 

1090 F0RT = 1T0300:NEXT:PRINT38/," " ; :F0RT=»1T0100!NEXT 

1100 PRINT38/,"3"; 

1110 IFINKEYSOCHR4(64,THENi090 

1120 CLS:INPUT"Quer arquivar os dados (S/N) 

1130 IFZil="S"THEN1140 ELSEEND 

1140 PRINT"PREPARE CASSETE E DIGITE 80" 

1150 INPUTF 



DL :Cr*"FH 
itens (S/NC 



\ i 



G.FIX. G.DIO. G.EVEN."; 



;Z1* 



b4 
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SEJA NOSSO 
COLABORADOR! 

r Escreva urn bom artigo sobre: 

' Macetes de programacao 
' Dicas sobre seu equipamento 
* Sistema operational, etc. 

E envie-o para nossa redacao 
Os artigos aprovados serao 
remunerados e os outros, 
devolvidos. Mas nao se 
esqueca de mandar seu nome 
complete endereco e telefone. 

VENHA FAZER 
NOTiCIA CONOSCO! 



Micro 



RIO: Rua Visconde Silva. 25 - Botafogo. 

RJ. CEP 22281 , tel.: (021 ) 286-1 797 e 

246-3839 

SP - Rua Oliveira Dias. 153 - 

Jardim Paulista - SP. CEP 01433. 

tel.: (01 1)853-7758 e 881 -5668. 



ORQAMENTO DOM^STICO 



1160 IFF<800RF>80THEN1150 

1170 CLS 

1180 PRINT"GRAVANDO. .."; 

1190 F0RB=1I05 

1200 PRIN-Ttt-1,R(B> ,X(B) 

1210 NEXTB 

1220 PRINTH-l.FF* 

1230 CLS 

1240 PRINT"TLRMINADA A GRAVACAO" 

1250 END 

1260 CLS:PR1NT"A final idade deste programa e' a de ajudar a di 

m inu ir ou supr i -" 

1270 PR INT "m i r po«.siveis deficits no orcamento domestico. Lom 

ele, podese " 

1280 PRINT"controlar una ser i e canstante de itens, dlstribuido 

s segundo uma" 

1290 PRINT"ordem de gastos rotineiros. Cada item tem var i os 

sub- itens, os " 

1300 PRINT"c)ua i s cobrem toda a gama de despesas domest i cas." 

1310 PRINT 

1320 PRINT'O programa permite uma comparacao percentual entrc 

os d i versos i " 

1330 PRINT"tens, seja atraves de listagem dos valores, seja at 

raves de gra-" 

1340 PRINT3926, "TELLE <ENTER> PARA C0NTINUAR":G0SUB20 

1350 PRINT"fico em barras. Com esta comparacao, serao local iza 

dos os itens " 

1360 PRlNT"de ma i or peso no orcamento.'' 

1370 PRINT 

1380 PRINT"F inalmente, os dados pqderao ser ai<)uivados em fita 

, para ver i f i " 

1390 PRINT"cacao futura." 

1400 PRINTa926,"TECLE <ENTER> PARA C0NTINUAR" :G0SUB20:CLS:G0T0 

180 

1410 CLS 

1420 PRINT:PRINTa25,"MES:";FF* 

1430 PRINT:F0RI=1T05:PK1NTA4(I,0) ,"Cri";R<I> ,X(I) ;"Z":NLXf 

1440 PRINT :PR1NT"QULR VOLTAR AO PROGRAMA PRINCIPAL 

1450 INPUT"(S/N>";GH1 

1460 IFGH$< >"S"THENLNDELSE290 



«\ 



Assine 



■ 



Informatics & 
Administracao 



As informagoes 



est do 



ao seu alcance 






%v 



a€ 







^^V^ac-Simile: copl 

\V»«ncS 




(Se voce noo quiser cortar sua revista, tire uma xerox do cupom abaixo) 



empresa 



profissao/cargo 



endereco poro remessa 



cidade. 



cep. 



estado 



Assinatura anual 

□ Informdtica & Administracao Cr$ 20 000,00 

□ Micro Sistemas CrS 1 5 000.00 

] Informdtica & Administracao + Micro Sistemas Cr$ 31 000.00 



Junte a estes dados cheque nominal 6: 

ATI Editora Ltda. 

R. Oliveira Dias, 153 - Sa"o Paulo - SP - CEP 01433 

Tel.: (01 1) 853-7758 e 881 -5668 

R. Visconde Silva, 25 — Rio de Janeiro — RJ — CEP 22281 

Tel.: (021) 286-1797, 246- 3839 e 266-0339 

(seu recibo serd enviado pelo correio) 




APPLEKIT 65000 ' Placa de circuito impresso. APPLEKIT 65010 Conjunto de soquetes. conectores. resistores e ca- 
pacitores. 1 APPLEKIT 650201 Coniunto de semicondutores, TTL's, LSI e memorias (As memorias EPROM sao forneci- 
das com gravagao). [APPLEKIT 65100 Conjunto de teclado alfanumerico com 52 teclas e componentes. circuito im- 
presso. APPLEKIT 6520~bj _Fonte de alimentac^o tipo chaveado. 1 APPLEKIT 653001 Caixa de microcomputador em 
poliuretano. I APPLEKIT 654061 Manual de montagem e teste de micro. 



APPLEKIT e 100% compativel com os cartoes perifericos da MJCROCRAFT. 



* Apple e marca registrada dr Apple liw 
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Aprenda a/guns macetes de programacao e de uma injegao de velocidade 
no processamento de seus programas em BASIC 



Otimize seus programas 

em BASIC 



Carlos Alberto Yamana 



Alinguagem de programasao mais 
comum que existe 6, sem dtivi- 
da, o BASIC, simples na sintaxe 
mas com forca suficiente para 
executar uma se'rie de operacSes diferen- 
tes. Geralmente, porem, ele e lento na 
execucSo de programas. 

Urn dos motivos e o fato de que a 
grande maioria dos tradutores BASIC 
esta implementada atraves de interpre- 
tadores armazenados em mem6ria ROM, 
os quais, em grande parte, nao produ- 
zem codigo diretamente executavel. 
Lembre-se de que o interpretador e um 
programa que executa as instrucoes de 
um programa-fonte, linha por linha, en- 
quanto que o compilador converte o 
programa-fonte como um todo, de lin- 
guagem de alto nivel para linguagem de 
maquina. 

Existem muitos programas para res- 
solver um determinado problema; alguns 
podem ser mais rrfpidos que outros, al- 
guns necessitam mais memoria que ou- 
tros, alguns sofrem mais facilmente mo- 



difica?6es. programa ideal deveria ter 
todas essas qualidades, porem nem sem- 
pre se consegue obter um programa ideal: 
os fatores que o tornam ideal nao sao 
mutuamente independentes. Uma melho- 
ria na velocidade do programa quase 
sempre resulta em um aumento de me- 
moria utilizada; algoritmos elegantes sao 
quase sempre dificeis de ser entendidos... 
Otimizar significa escolher a melhor 
solu9§o. Assim, otimizar um programa 
de computador significa escrever um 
programa que tenha a maior velocida- 
de possivel, ocupe a menor quantida- 
de de memdria possivel e que possa 
sofrer modifica96es sem muitas dificul- 
dades. Mesmo assim, com o crescente 
aumento da capacidade de memoria dos 
micros, o aspecto de reducao do uso de 
mem6ria pode ser deixado um pouco de 
lado. Quanto ao aspecto da facilidade de 
um programa sofrer modificacoes, ressal- 
tamos aqui que muitos programadores 
buscam o inverse a fun de impedir pos- 
si'veis cdpias. 



Desta forma, otimizar um programa 
em BASIC Interpretado significa, acima 
de tudo, aumentar a sua velocidade. Dis- 
cutiremos aqui algumas tecnicas de pro- 
gramacao que vao melhorar a perfor- 
mance de programas em BASIC quanto 
a sua velocidade. 



1 - A escolha do algoritmo certo 

Antes de pensar em aumentar a velo- 
cidade de um programa, devemos verifi- 
car se escolhemos o algoritmo certo para 
solucionar o problema. Um exemplo bas- 
tante eloqiiente e quando calculamos 
um determinante de uma matriz de or- 
dem n a partir de sua defini9ao. 

Consideremos como esforco compu- 
tacional o numero de opera5oes aritme'ti- 
cas envolvidas na execu9ao de um algo- 
ritmo qualquer. calculo de um deter- 
minante de uma matriz de ordem n 
requer, a partir de sua definicao, a exe- 
cu9ao de n! (n-1) multiplica96es e de 



Ordem do 
determinante 


Esforco 
computacional 


Tempo de 
execugao 


5 
10 
15 
20 


599 
36287999 
l,96x10 13 
4,86x10 19 


0,006 s 

3628 s 

62 anos 

154 milhoes 
de anos 



Funcao 


tempo medio (milissegundos) 


+ 

• 

• 
Elevagao a potencia (YtX) 
Raiz quadrada (SQR) 
Seno (SIN) 
Cosseno (COS) 
Tangente (TAN) 


1.08 

1.12 

2.85 

5.92 

4 3.92 

8.74 

45.62 

45.69 

27.27 



n!-l adi9oes, totalizando um esfor90 
computacional de n!n-l opera9(5es arit- 
meticas. A figura 1 registra o esfor9o 
computacional e o tempo de execu9a"o 
das opera96es aritmeticas, supondo, pa- 
ra simplificar, que as mesmas sejam execu- 
tadas a velocidade de lOOrls (lOOxlO^s) 
cada. 

Observamos que, na verdade, o tem- 
po gasto pelo computador e bem maior, 
pois apenas foram consideradas as ope- 
ra96es aritmeticas. Ha\ no entanto, me- 
todos de cdlculo de determinantes (por 
exemplo, o de triangularizacdo de Gauss) 
que consomem um curto espa90 de tem- 
po. Isto significa dizer, que os exemplos 
demonstrados na figura 1 , serviram ape- 
nas para mostrar que o tempo de progra- 
ma9ao pode chegar a valores altos se nSo 
soubermos escolher o algoritmo certo 
para resolver um problema. 

2 - Operacoes aritmeticas 

Cada opera9ao artimetica (adicfo, 
subtra9ao, multiplica9ao, divisao e po- 
tencia9ao) necessita de um tempo fixa- 
do para ser feita. conhecimento do 
custo de cada opera9ao podera ajudar o 
programador a escolher o melhor modo 
de construir suas opera96es aritmeticas. 
Por exemplo, no caso da potencia95o: 



10 X=Y**2 



demora mais que 



io x=y*y 

Multiplicacao e mais demorada que adi- 
9ao;portanto, 

10 X=Y»2 

deve ser substitui'do por 

10 X=Y+Y 

Divisao £ mais lenta que multiplicacao; 
portanto, 

10 A=X/2 



Figura 1 
68 



Figura 2 
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demora mais que 

10 A=X*.5 

O tempo necessario para cada opera- 
9ao depende de cada maquina. A figura 

2 mostra, por exemplo, valores relativos 
ao tempo medio de execu9§o de algu- 
mas fun96es matematicas incorporadas 
no micro HP-85. 

3 — Constantes x variaveis 

Quando usamos um interpretador, e' 
prefen'vel utilizar variaveis ao inve"s de 
constantes. Assim, 

10 TOR J=0 TO N 
20 S=S*29343 
30 NEXT J 

tern um tempo de execu9ao maior que 

b P=29343 
10 FOR J=0 TO N 
20 S=S*P 
30 NEXT J 



MICRO SISTEMAS, abril/84 



Note que houve expansao de uma li- 
nha; pore*m, o que ganhamos em veloci- 
dade compensa o dispendio de mais me- 
m6ria. O tempo poupado depende do 
numero de dfgitos da constante, do nii- 
mero de itera96es e, se por acaso a cons- 
tante for uma fun9ao com argumento 
constante (por exemplo SIN 30), do ti- 
po da fun9ao. 

4 — Subexpressoes comuns 

Uma subexpressao comum pode ocor- 
rer dentro de um programa e consumir 
tempo e mem6ria. A seguinte seqiiencia 
contem a subexpressao comum X+Y : 

10 M=X+Y*W 
20 N=R+X+Y 

mas uma outra versSo poderia calcula'-la 
somen te uma vez: 

5 T=X+Y 
10 M=T+W 
20 N=R+T 

Di para perceber que. embora a segunda 
versao seja uma linha maior, ela contim 
tres adi9oes, enquanto que a original, 
quatro. O tempo poupado depende, por- 
tanto, do numero de subexpressoes que 
podem ser substituidas. 

5 - Loop 

Procure remover expressoes indepen- 
dentes do la9o FOR-NEXT. Por exem- 
plo, no laco 

1 FOR 1=1 TO 100 
20 A=A+B(I)*(X*X+3* 

X+2) 
30 NEXT I 

a expressSb (X"9(+3^C+2) 6 calculada 
toda vez que o laco FOR £ executado. 
Para maior eficiencia, tais comandos de- 
vem ser recodificados da seguinte forma: 

5 C=X*X+3*X+2 
10 FOR 1=1 TO 100 
20 A=A+B(I)*C 
30 NEXT I 

Cada execu9ao de um la90 FOR- 
NEXT necessita, basicamente, uma adi- 
9ao, uma compara9ao e uma operacSo de 
desvio para a variavel definida no FOR. 
Assim, o seguinte segmento de progra- 
ma 

10 POR P=1 TO 100 
20 X(P)=K 
30 NEXT V 



deve ser recodificado para: 

10 FOR P=1 TO 99 

STEP 2 
20 X(P)=K 

10 X(P+1 )=K+1 
40 NEXT P 

diminuindo o tempo necessario de cada 
itera92o em 50%. £ evidente que, usan- 
do esta mesma tecnica, podemos reduzir 
gradativamente o tempo de execucao, 
porem o nosso objetivo 6 apenas ilus- 
trar a tecnica. 



CIENCIA MODERNA 
COMPUTAQAO 

A Unrca E»pecializada em Livros 
• Revistas p Microcomputa^ao 



Pubiicagoes para VIC-20 j COMMODORE-64 



• COMPUTE'S FIRST BOOK FOR VIC-20lCompulei 28490.00 

• 50 Outstanding PROGRAMS FOR THE VIC-20 
(Hatn«M| 

• GETTING ACOUANTED WITH YOUR VIC-20 
(Hatnelli 

1 3* VIC-20 Computet Programs to' Home School 
and office (Aditfl 

• 101 Programming Tips and Tncks tor the VIC-20 
and Commodore W 

■ Mastenng the VIC-20 (Jones) 

• I Speak Basic to My VIC-20 (Jones) 

• Arcade Games lor the VIC-20 iRamshaw) 

1 Spnte Graphics tor the Commodore W (Larsen) 
1 Commodore 64 Getting the Most from it (Onosko) 
1 Commodore 64 and VIC-20 lHaskell) 

• Using the Commodore 64 m the Home (Librach). .. 

■ The Commodore 64 Idea Book (AHL) 

| The Working Commodore 64 (Lawrence) 

1 The Easy Guide to Your Commodore 64 [KascmeO 

Vic Basic User-Fnendly Guide Graphics Cole 
and Sound (Zamora) 

Tncks tor Vies (Ro&ertsi 

Kids and the VIC 



22 24000 

21.89000 

19.690.00 

19.69000 
3289000 
18590.00 
25 440.00 
3349500 
32.890 00 
30.690.00 
24 09000 
19.690.00 
21890.00 
2189000 

32890.00 
21890.00 
4389000 



Visite-nos ou pega uma hsta do 

nosso estoqueespecidca para seu micro. 



Atendemos tambem por Reemb Postal e Vang 



Av Rio Branco. 156 — loja 127 — subsolo 
Rio de Janeiro — Tels. 262-5723/240-9327 



2748845 



IVOCE TEM UM MICRO?! 
NOS TEMOS 

-/uprimento 

DISKETTE S 1/4" E 8" 

FORMULARIO CONTtNUO 

FITA IMPRESSORA 
FITA K-7 CURTA DURACAO 

ETIQUETAS ADESIVAS 

PASTA P/FORMULARIOS 

80 E 132 COL. 2 

I 

ARQUWOS EM ACRlLICO, c 

RACKS E PASTAS 
PARA DISKETTES. 

REBOBINAMOS QUALQUER FITA 

PRONTA ENTREGA 

QUALQUER QUANTIDADE 

GARANTIA E QUALIDADE. 



/uprimento 

BUA VISCONDE DE PIRAJA. 550 - LOJA 202 
(021) 274-S845 (021) 246-4180 BIP 36X8 
IPANEMA. RIO (0111815-3344 BIP 587A 
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6 — Uso indevido de GOTO 

O.uso indevido de GOTO pode oca- 
sionar dificuldades na hora das modifica- 
96es e no entendimento logico do progra- 
ma. Um exemplo de mau uso de GOTO 
que ocorre freqiientemente 6: 

10 IP A>B THEN JO 
20 GO TO 40 
30 A=A+N 
40 

que deve ser mudado para: 

10 IF A«B THKN 30 

20 A=A+N 

30 

Uma simples reversao da logica do 
comando IF... THEN aumenta a com- 
preensao e economiza tempo e memoria 
do programa. 

7 - Matrizes 

Opera9oes com matrizes sao usadas 
em muitos programas. Por exemplo: 



Neste exemplo, existem duas opera - 
coes na matriz A. Primeiro, cadaelemen- 
to da matriz recebe o valor 3; depois, a 
diagonal A(l,l) a A( 10,10) recebe o va- 
lor 2. Cada loop requer um numero de 
testes ate - seu desfecho. Assim, a linha 
40 sera alcan9ada 100 vezes, a linha 50 
dez vezes e a linha 70 tambem dez vezes. 
O segundo loop, no entanto, pode ser 
incluido no primeiro, reduzindo assim o 
numero de testes. Alem disso,vamos tro- 
car as constantes por variaveis: 



10 X=2 

20 Y=3 

30 FOR 1=1 TO 10 

40 POR J=1 TO 10 

bO A(J,I)=Y 

60 NEXT J 

70 A(I.I)=X 

80 NEXT 1 



CONCLUSAO 



10 FOR 1=1 TO 
20 FOR J=1 TO 
30 A(J.I)=3 
40 NEXT J 
50 NEXT I 
60 FOR 1=1 TO 
70 A(I,I)=2 
80 NEXT I 



10 
10 



10 



Existem muitas outras dicas que de- 
pendem do tipo e da complexidade do 
problema com que se estalidando. Aoti- 
mizacfo e\ portanto, uma tecnica que se 
aprende gradativamente. 

Outro aspecto a ser levantado e a pos- 
sibilidade de se escrever um programa 



em linguagem hibrida BASIC/ Assembler, 
objetivando substituir os comandos mais 
lentos em BASIC por sub-rotinas Assem- 
bler, com conseqiientes ganhos na velo- 
cidade de execu9ao de um programa. Pa- 
ra quern quiser aprofundar-se no assun- 
to, recomendamos a leitura dos livros ci- 
tados na bibliografia. 
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Se voce nao adquiriu MICRO SISTEMAS na data certa, nos /he damos uma segunda chance! 



• Seu pedido pode ser feito 

por carta, indicando 

quais os numeros 

atrasados que voce quer. 



Acrescente a este um cheque 

cruzado, nominal a ATI 

Editora Ltda., no valor 

correspondente ao seu 

pedido. 



• E nao se esqueca de incluir 

o seu endereco para 

que nos possamos 

fazer a remessa. 



Aqui estao os nossos enderecos. 



AgD 



Rua Visconde Silva, 25 - Botafogo - Rio de Janeiro - RJ - CEP 22281 - 

Tels.: (021) 286-1797, 246-3839 e 266-0339. 
Rua Oliveira Dias, 153 - Jardim Paulista - Sao Paulo - 
SP - CEP 01433 - Tels.: (01 1) 853-7758 e 881-5668. 
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C0DIG0 Pi 
MA0UINA PARA 

TK € CP200 

por Delio Santos Lima 
o mesmo autor de: 

45 PROGRAMAS PRONTOS PARA RODAR EM TK 82C 

E NE Z8000 

APLICAQOES SERIAS PARA TK 82C E CP 200 

30 JOGOS PARA TK 82C E CP 200 

SINCLAIR 8K ROM — DISASSEMBLY COMPLETO 
COMENTADO 

Ensina o Assembly do Z 80 

Em um unico volume, instrucao por instrucao, em exemplos praticos, para aqueles que en- 
tendem c Basic e possuem um TK, CP, NE ou ZX. 

Com muitos macetes da ROM 

Todas as diferencas entre as ROMsdos Micros TK, NE, CP e ZX. 

As principais rotinas da ROM, como sub-rotinas de programas, inclusive as aritmeticascom 

ponto flutuante. 

Mais de dez programas 

Mesmo sem estudar o Assembly do Z80 voce podera desfrutar desta colecao de programas 
em codigo. Todos testados e comentados. Micron Pac, Labirinto, Bombardeio, Contadores 
de pontos, de tempo, Som por Software, DataFile, Merging. Renumber, Save Display, 
etc... etc... 

Tabelas de conversao 

Mnemonicos para Hex, Hex para Mnemonicos, Decimal para Hex, Hex para Decimal 

Um dicionario do Assembly Z 80 

... E MAIS UMA EXCLUSIVA TABELA POSTER DE BRINDE 



Despachos para todos os Estados medfante Ordem de Pagamento ou Cheque Nominal 

45 PROGRAMAS PRONTOS PARA RODAR " 
APLICACOES SERIAS PARA TK 82C E CP 200 



CrJ 5.500.00 30 JOGOS PARA TK E CP 200 

CrJ 7.500.00 "CODIGO DE MAQUINA PAHA TK E CP 200 



Cr$ 6.000.00 
Cr$ 9.000.00 



MICRON ELETROMCA COM. IND. LTDA. 



Cx. Postal, 100 - CEP 12200 - S. Jose dos Campos -SP 




rodada /MS 






Voce tambe'm acha que nao 6 capaz de aprender telegrafia? Trate de 
mudar de opiniao: o seu micro da linha TRS-80 e agora o seu... 



Professor Picapau 



MICRO SISTEMAS inaugura a RODADA MS, 
ponto de encontro para radioamadores ligados 
em microcomputacao, cujos objetivos podem ser 
sintetizados em duas palavras:unir pessoas e ideias 
para dividir conhecimentos e experiencias, caracterfstica da 
atividade radioamadoristica. 

Durante as ultimas edicoes de MS, temos publicado traba- 
ihos orientados para o radioamadorismo, ao mesmo tempo em 
que, atraves de chamadas, mala direta a LABRE, as suas 
seccionais e as principals entidades radioamadon'sticas do 
Brasil. bem como atraves das faixas, solicitavamos a divulgacao 
de nosso proximo lancamento. A resposta chegou materializa- 
da em dezenas de cartas, telefonemas e contatos via rddio, e 
assim resolvemos Ian car a primeira RODADA MS, que, con- 
forme a reacao dos leitores e principalmente as colaboracoes 
recebidas, evoluiitf para uma secao permanente. 

A ti'tulo de sugestao, estamos corujando aplicacoes para re- 
gist ro de comunicados, confeccao de QSL, transmissao/recepcao 
de CW/RTTY, rastrea men to de sat elites, a puracao de resultados 



Roberto Quito de Sant'Anna 



de contestes etc., etc., para a linha Sinclair, Apple ou TRS-80. 
Todos os trabalhos serao apreciados, testa dos e, se aprovados, 
publicados com os devidos creditos ao colaborador. As entida- 
des radioamadon'sticas solicitamos tambem o envio regular de 
seus Boletins Informativos. 

Mesmo sob o risco de omitir alguma referenda, quero res- 
saltar o incentivo recebido de varios companheiros e entidades, 
ci tan do-os na ordem em que me vem a memoria: PY3IY-PivattO 
(DS/RS), PYIEWN-Ron (CWRJ), PYIOZ-Paulo (DS/RJ), 
PY2AC-Alfredo (DS/SP), PY2DRD-Rodrigues, PYIBCN-Ma- 
chado, PYIBGN-Fkivio, PYlFO-fivio e PY1AFA-GU (AN-EP), 
dentre muitos outros. 

Agradecendo qualquer con test acao ao nosso CQ, sintoniza- 
mos a freqiiencia da RODADA MSI 
PYIDWM-Quito 

PS: para troca de ideias. posso ser en contra do quase que dia- 
riamente na Patrulha da Madrugada, em 7055 KHz, a partir das 
22.00 PY. Quern sabe poderiamos criar a Rodada do Micro?... 



Como a maioria dos colegas, desde 
que obtive o meu primeiro indicativo, 
em 1965, sempre pensei que telegrafia 
era uma coisa difi'cil e que, apesar das 
nocoes bdsicas adquiridas por forca 
de minha formaca"o profissional, jamais 
seria um praticante dessa excitante 
modal idade de comunicacao. na qual, 
de resto (larnentavelmente, como a 
maioria dos radioamadores), na"o via 
nenhuma importancia. fato £ que, 
apos cerca de 1 5 anos de intensa 
atividade, gracas a PY1BDU- Walter - 
a quern devo uma boa parte de 



minhas vit6rias como radioamador - 
e a PYIBGI-Adolpho que, numa noite, 
em uma inesquecivel rodada juntamente 
com PYIBQJ-Julio, com infmita 
paciencia, mostrou-me o caminho das 
pedras, finalmente resolvi aderir ao 
CW, entrando nas subfaixas. 
A partir dai, com a prdtica assidua, 
a colaboracao dos radioamadores de 
todo mundo, cujo maior prazer 6 atender 
imediatamente aos PSE QRS dos 
novatos, e gracas ainda a maravilhosa 
acolhida no CWRJ proporcionada por 
PY1EWN e PY1BVY, iguais no nome 



— Ronaldo - e no entusiasmo, ficou 
definitivamente consolidada a 
minha preferencia pelo Picapau. 
No que diz respeito a importancia 
do CW, remeto o leitor as pagjnas 
de AN-EP, em busca dos brilhantes 
editorials de PYIAFA-Gil e artigos de 
varios abnegados colaboradores, assim 
como as revistas especializadas de 
todo o mundo. Quanto a dificuldade, 
ela existe de fato em maior ou menor 
grau, mas 6 grande o niimero de 
companheiros que, de alguma forma, 
procuram minimizi-la, 



aos quais me associo agora. 
Este trabalho foi realizado tendo 
em vista ajudar tanto aqueles que 
pretendem praticar efetivamente o CW 
quanto aqueles que querem apenas ser 
aprovados nos (cada vez mais rigorosos) 
exames de promocao as classes B e A 
(e depois jogar o manipulador no ponto 
mais profundo do oceano, HI!), alem 
de servir tambem para aumentar a 
proficiencia dos ja praticantes que ainda 
estao na faixa de dez palavras por 
minuto (ppm) ou, ainda, como meio 
auxiliar para aulas em grupo. Com 
pequenas modifica96es, podera" ser 
usado por um instrutor para transmitir 
qualquer texto desejado em vez de 
caracteres aleat6rios ou ate* 
mesmo manipular diretamente o 
transmissor, via rele* do motor cassete 
(o que nao aconselho), ou atraves da 
porta do cassete, via pequena interface, 
transformando o seu micro em um 
teclado, ainda que de relativamente 
baixa eficiencia. Estou inteiramente 
QRV para discutir o assunto. 

ENFRENTANDOA 
B ARRE1R A DO SOM 

programa foi escrito para os micros 
da linha TRS-80 Modelos I e III, com 
ou sem drive. Embora extenso, 6 
razoavelmente simples, bastante 
estruturado e com uso extensivo de 
sub-rotinas. A maior dificuldade na sua 
confeccao foi devida a\ no meu en tender, 
maior limitacSo da linha TRS-80, que 
e a ausencia de comandos especfficos 
para a geracSo de som. Como meus 
conhecimentos de linguagem de maquina 
ainda deixam a desejar, optei por 
vasculhar a bibliografia especializada 
disponivel em busca de uma rotina de 
som apropriada, ao inves de ten tar 
reinventar a roda. 
Apos muitas tentativas e outras 
tantas frustracoes, a solucao veio 
atraves de Leo Christopherson 
(considerado, nos EUA, o Walt Disney 




. Linha 80 - leitura, nas instrucoes 
DATA 640-680 e armazenagem na 
matriz string G$ dos codigos telegrf- 
ficos admitidos, correspondentes aos 
codigos ASCII 44 a 90, exceto os de 
58 a 62 e 64 (ver manual da Prologi- 
ca, apendice C); notar que, em cada 
grupo, 1 corresponde a.um traco 
(DAH)e a um ponto (DIT), enquan- 
to que os codigos excluidos sa"o repre- 
sentados por 2. 

. Linhas 90-1 10 - definicao das men- 
sagens de advertencia. 
. Linhas 140-150 - leitura e confe- 
rcncia dos codigos dos caracteres gra- 
ficos que vao constituir a parte visual 
da abertura do programa, ou seja, a 
impressao dos caracteres telegraficos 
DE PY1DWM; voce pode substituir 
os DATA 700-750 pelos cddigos ne- 
cessarios a impressao de seu pr6prio 
indicativo, desde que mude tambem 
a string ZZS da linha 80, a instrucao 
DATA 650 e o laco da linha 1 10. 
. Linhas 230-240-leitura e conferen- 
cia dos codigos-objeto da rotina de 
som, nas instnifoes DATA 760-800. 
. Linhas 270-300 - abertura do pro- 
grama: impressSo dos caracteres gr£- 
ficos e transmiss5o simultanea em 
CW do texto DE PY1DWM, prote- 
cio das duas primeiras linhas da tela. 
. Linhas 320-590 - rotina de trans- 
misslo, detalhada a seguir. 
. Linhas 370-420 - parametros que 
vao definir a velocidade de transmis- 



sao: intervaloentre caracteres ('CAR), 
intervalos entre pontos e tracos (ID), 
dura9§o do traco (DAH) e duracSo 
do ponto (DIT). O mdtodo usado pa- 
ra determinacSo da velocidade foi o 
de considerar cada grupo de clnco 
letras (opc5o 1 do menu principal) co- 
mo uma palavra, dividindo-se o nume- 
ro de grupos pelo tempo de transmis- 
s3o - um tanto rigoroso, reconheco, 
mas para mim £ o que mais se. aproxi- 
ma da realidade. 

. Linhas 450-480 - selecao randomi- 
ca dos codigos ASCII permitidos, con- 
forme a opcao desejada : s6 algahsmos 
(de 48 a 57), s6 letras (de 65 a 90) 
ou letras + algansmos + pontuacao 
(de 44 a 90, exceto os de 58 a 62 e 
64). 

. Linhas 500-550 - separacao dos ca- 
racteres 1 e da string AS escolhida 
e encaminhamento a sub-rotina de 
transmissdo de um cardter telegrifico 
da linha 820. Teste se foi digitado 
S para interromper a transmissa'o. 

. Linha 560 - teste seja" foram com- 
pletados 20 grupos. 

. Linhas 840-900 - sub-rotina para 
transmitir DE PY1DWM na abertura 
do programa. 

. Linhas 1040-1 100 - sub-rotina para 
as mensagens piscantes (ver programa 
Pisca-pisca, secSo Dicas, MS numero 
26). 



da animacao no TRS-80), em seu 
artigo Celestial Music (Creative 
Computing, marco/82), do qual a 
rotina de som das linhas 180-250 foi 
integralmente copiada, com o 



devido conhecimento de Leo, conforme 
atesta correspondencia em meu poder. 
Nao estranhe a instrucao LPRINT da 
linha 820 - ela substitui uma instrucao 
USR, uma vez que o endereco da rotina » 




Estabilizador EtetrOnico 



mini 



Prote«ao 
da 




ultra-rapida contra vanacoos 
tonsao da rede em ate ♦ 22% 

e»tabiiizando-a em * 1% 

Capacidadede 

25 4. 06 8 

e 1 KVA 



Gerador Eletronico 



GERATRON 

Ouando a redeeletnca (altar GERATRON 
continuara alimentando o seu micro como se nada 
houvease aconteodo ^aaaa^^fc 

Capacidade de 200 VAj 
cootinuamente 



e 500 VA de pico 
Batena interna 
com autonomia 
de 90 minutos 
a plena carga 

R Dr Gamier. 579- CEP 20971 






is 

Linha Especial para Micros 

Protecao compieta para o seu micro, 
mantendo a aiimeniacao aitamente 
estavel e sem interrupcao Forma de 
ondasenoidal CapacKlades de 25. 4. 
6. 1.15.25 3 5 a 5 KVA Opera com 
quatro bate nas comuns de 12 volts 



GUARDIAN 



RochaTels PABX (021) 261-6458 
Repreaentante Sao Paulo 



EQUIP. ELETBON. LTOA. 

Oireto 201-0195 • Telex n° (021) 3*016 - Rio de Janeiro - RJ 
Tei (Oil) 270-3 1 75 • Representantes em todas as capital's 
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de som, contida na string SS , foi 
POKEado nas posicoes 16422/23, que 
contem o endereco do vetor LPRJNT. 
Se voce dispOe de impressora, deixe-a 
desligada para utilizar o programa. 
Em alguns micros da Prologica, com 
amplificador de som instalado na 
fabrica, foi constatada a ocorrencia de 
estalidos durante a transmissao, devido, 
possivelmente, a uma reposta pobre 
do amplificador. Se este for o seu caso, 
a liga^ao de urn amplificador externo 
resolve ra o problema; para comprovar o 
perfeito funcionamento da rotina de 
som. grave uma fita e ou?a-a em seguida. 
programa esta fartamente 
documentado pela utilizacao de varias 
instrucoes REM e seu uso nao oferece a 
menor dificuldade, gra?as aos diversos 
menus explicativos. operador pode 
solicitar a transmissao de 20 grupos de 
cinco caracteres escolhidos 
aleatoriamente (somente letras, somente 
algarismos ou letras + algarismos + 
pontua9ao) em seis valores diferentes 
(5,6,7,9, 11 e 14ppm);aposa 
transmissao, os grupos aparecem na 
tela para conferencia pelo tempo que o 
operador desejar. 

Toda comunicacao com a maquina e" 
feita pelo sistema de acionamento de 
uma unica tecla, sem necessidade de 
<ENTER>e, para interromper a 
transmissao a qualquer momento, basta 
digitar<S>. trabalho de digitacao 
do programa foi bastante simplificado 
atraves da utilizacao de rotinas de 
conferencia da soma de valores 
numericos (checksum) introduzidos 
em instrucoes DATA, com emissao de 
mensagens de advertencia em caso 
de erro. 

Isso e" tudo por enquanto. Os 
melhores votos de aprovacao nos exames 
de promogao e espero encontra-los 
breve pelas subfaixas. HPE CUAGN 73 
ESGLFMPY1DWM. 



Roberto Quito de Sant'Anna - PY1DWM4 
engenheiro de telecom unicacdes e professor 
de Informa'tica da AM AN. Radioamador des- 
de 1965, 6 membro ativo de virias entidades 
radioamador Isticas nacionais e estrangeiras, 
destacando-se: LABRE, CWRJ, CWRL, CWP, 
DIG. CHCe AGCW-DL. 
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20 '= PROFESSOR "PICAPAU 

30 "============================^=========== 

40 '= PY1DUM-R0BERT0 QUITO DE SANTANNA 

50 '= BOX 24039 - 20522 - R JANEIR0-RJ_ ■ 

70 BEFINT A-Z: CLEAR 1000:DIM C$( 100) ,M1 (S) ,M2<8) ? G*<47> 

SO CLS'.FOR 1 = 1 TO 47:READ G*< I ) :NEXT :Z*="" :ZZ*="DEPY10ldM" 

90 A1*="APERTE QUALQUER TECLA PARA CUNTINUAR" 

100 A2*="ERR0 DE ENTRADA - VERIFIQUE DECLARAC0ES DATA" 

110 A3*="* * * TRANSMITIND0 * * *" 

120 FOR 1=1 TO 8:READ MKI):READ M2(I):NEXT 

130 PRINTS 15, "P RUFESS0R PICAPAU" 

140 FOR 1=1 TO 62:READ V : T=T+V : Z*=Z*+CHR*( V) :NEXT 

150 IF TO9056 CLS: A*=A2*+" 700-750" :60SUB 1040 : CLS: END 

160 '*****R0TINA DE SOH*-*^*^ 

170 'ATENCA0: A 'STRING' ABAIX0 DEVE IER 70 POSICOES 

ISO S*="/////////. . .preencha com 70 s i mbolos. „.//////// " 

190 MM=vARPTR(S$):Sl=PEEK<MM+l):S2=PEEK(MM+2> 

200 S0=S1+256*S2:P0KE 16422, SI :P0KE 16423, S2 

210 A$="12 ,, :nn=VARPTR(A$):Al=PEEK(Mf1+l) 

220 A2=PEEK(MM+2) : A0=A1+256*A2:T=0 

230 FOR 1=0 TO 69: READ M:T=f+V:P0KE S0+I,V:NEXT 

240 IF T05917 CLS:A*=A2*+" 760-S00" :G0SUB 1040 :CLS:END 

250 POKE A0+l,100 

260 '****»R0TINA DE ABERTURA 

270 FOR 1 = 1 TO 2:PRINT(3 64 ,STRING*(63, " ">;:PRINT@ 64,""; 

2S0 FOR M=l TO S:G0SUB 1250 :Z1*=MID*(ZZ* ,M, 1 ) :Z=ASC(Z1$ .» 

290 G0SUB S40 :NEXT H 

300 FOR 11 = 1 TO 50: NEXT Il'.NEXT l:P0KE 16916,2 

310 '*****ENTRADA DA ROTINA DE TRANSMISSAO 

320 FOR 1=1 TO ioo:c*(I)="":next:q=o:c=o 

330 G0SUB 920 :IF NR=4 GOTO 440 

340 CLS:G0SUB 1120 :CLS:PRINTQ 525, A3* 

350 PRINTS 780, "PARA INTERKOMPER A TRANSMISSAO TECLE <S> 

360 ON VEL GOTO 370 ,3S0 ,390 ,400 ,410 ,420 

370 ICAR=300:ID=100:DAH=9:DIT=i:G0T0 430 

3S0 ICAR=300:ID=50'.DAH=9:DIT = 3:GOTO 430 

390 ICAR=100:ID=50:DAH=9:DIT=3:GUT0 430 

400 ICAR=100:ID=50:DAH=6:DIT=2:G0T0 430 

410 ICAR=100:ID=10:DAH=3:DIT=l:G0T0 430 

420 ICAR=l:ID=l:DAH=3:DIT=l 

430 ON NR GOTO 450 ,460 ,470. 

440 POKE 16916, 0:CLS:END 

450 A=RND(25)+65:G0T0 490 :'*****S0' LETRAS 

460 A=RND(9)+4S:G0T0 490 :'*****S0' ALGARISMOS 

470 A=RND(46)+44:'*****LETRAS, ALGARISMOS E P0NTUACA0 

4S0 IF A=64 OR <A>57 AND A<63) GOTO 470 

490 Q=Q+l:C*(Q)=CHR*(A):A*=G*(A-43) 

500 FOR 1=1 TO ICAR:NEXT:'INTV ENTRE CARACTERES 

510 r=LEN(A*):F0R 1=1 TO T:D*=MID* ( A* , I , 1 ) 

520 IF D*="l" THEN L=DAH:G0T0 540 

530 IF D*="0" THEN L-DIT 

540 GOSUB 820 :F0R 11=1 TO ID:NEXT : ' INTV DIDAH 

550 NEXT:lF INKFY*="S" GOTO 610 

560 IF 0=100 GOTO 610 

570 C=C+1:IF COS GOTO 590 
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PROCURE QUEM 
REALMENTE ErVTENDE. 

MICROMAQ 

R. Sete de Setembro, 92 - Lj. K 
Tel.: 222-4088 - Rio de Janeiro 



POR QUE NAO TUDO EM 
UM SO LUGAR? 

Microcomputadores, Sotware, Publica^oes 
Especializadas, Cursos e Manutengao de Equipamentos. 
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C=0:FQR T=l TO 500:NEXT: '*****INTV ENTRE GRUPOS 
ON NR GOTO 450 ,460 ,470 

'*****IMPRESSAO DOS GRUPOS 

CLS:PRINT:PRINT:FOR 1=1 TO 96 STEP 5 

FOR 11 = 1 TO I+4:PRINT c*<n>;" ";:nf_>;t 

PRINT " ",: NEXT: A*=A1$: GOSUB 1040 :CLS:G0f0 320 

DATA 110011,10001,010101,10010,11111,01111 

DATA 00111,00011,00001 ,00000,10000,11000,11100 

DATA 11110,2,2,2,2,2,001100,2,01,1000,1010 

DATA 100,0,0010,110,0000,00,0111,101.0100,11,10,111 

DATA 0110,1101,010,000,1.001,0001,011,1001,1011,1100 

DATA 1 ,5 ,6, 12 , 13 , 18 , 1 9, 28 , 29 , 40 , 41 , 47 , 48 , 55 , 56 , 62 

DATA 1 28, 1 76, 144, 144, 144, 128, 128, 128, 144, 128, 12S 

DATA 128,144,176,144,176,144,144,128,128,128,176 

DATA 144 , 1 44 , 1 76 , 1 44 , 1 76 , 1 44 , 123 , 1 28 , 128 , 1 44 , 1 76 

DATA 144,176,144,176,144,176.144,128,128,128,176 

DATA 144,144,144,128,128,128,144,176,144.176.144 

DATA 128,128,128,176,144,176,144 

DATA 33,1,1,243,62,1,8,62,35,61,190,32,2,251,201 

DATA 126,35,86.94,29,14,10,6,225,21,32,14,87,62 

DATA 120,190,40.6.8, 238 ,3,211, 255 , 8 . 1 22 . 86 . 29 , 32 , 15 

DATA 95,62,120,190,40,6,8,238,3,211,255,8,123 

DATA 94,29,16,219.13.32.214.61.32.209,35,24,193 

'*****SUBROTINA PARA UM CARACTER TELEGRAFICO 

POKE A0,L:POKE S0+1,A1:P0KE SO+2 ,A2 ILPRINT : RETURN 

'*****SUBROTINA PARA TRANSMITIR INDICATING 

C*=G*(Z-43):C=LEN(C*):F0R 11=1 TO C 

C1*=MID*(C*,I1,1):IF Cl*="l" THEN L=3:G0T0 870 

IF Cn^'O*' THEN L=l 

GOSUB 820 :NEXT 

IF M<>2 GOTO 900 

FOR 11=1 TO 200: NEXT 

RETURN 

'*****SUBROTINA PARA MENU PRINCIPAL 

CLS:PRINT:PRINT TAB ( 15) i "Este programa transmite "; 

"aleator i amente" 
PRINT TAB(5);"20 grupos de 5 caracteres telegra"; 

"ficos, mostran-" 
PRINT TAB (5) \ "do-as na tela ao final da transmissao." 
PRINT TAB(15);"As opcoes disponiveis sao:" 
PRINT IPRINT TA8(10>;"<1> Somente letras" 
PRINT:PRINT TAB(IO) ;"<2> Somente algar i smos" :PRINT 
PRINT TAB(1Q);"<3> Letras, algarismos e pontuacao" 
PRINT:PRINT TAB(10);"<4> Fim de programa" 

PRINT TAB (30); "SUA OPCAO £'====>"; 

GOSUB 1230 :NR=VAL(OP*>:IF NR<1 OR NR>4 GOTO 1010 

PRINT nr;:random:for 1=1 TO 500:NEXT:RETURN 

r ****»SUBROTINA PARA MENSAGEM PISCANTE 

N=LEN(A*):INI=16320+(64-N)/2:Nl=N-l 

FOR 1=0 "10 N1/2:P0KE INI + N1-I , ASC(MID*( A*,N-1 , 1 ) ) 

POKE INI + .t.ASC(MID*(A*,I + l,l)) :NEXT 

FOR 1 = 1 TO 300:NEXT:IF INKEYtO"" RETURN 

FOR 1=0 TO N1/2:P0KE INI+Nl-1,32 

POKE INI+I,32:NEXT:F0R 1=1 TO 100:NEXT 

IF INKEY*="" GOTO 1050 ELSE RETURN 

'*****SUBROTINA PARA MENU SECUNDARIO 

PRINT:PRINT TAB(10);"Estao disponiveis as seguin"; 
"tes veloc i dades: " 

PRINT TAB(18);"<1> 5 palavras /minuto" 



PRINT:PRINT 

PRINT:PRINT 

PRINTrPRINT 

PRINT:PRINT 

PRINTrPRINT 

PRINT 

GOSUB 



TABUS);" 
TABUS) ;"<3> 
TAB (18);" <4> 
TAB(1S);"<5> 
TAB (18) ;"-.6> 
TAB(40);"SUA OPCAO 
1230 :VEL=VAL(0P*) 



6 palavras / minuto" 

7 palavras / minuto" 
9 palavras / minuto" 
11 palavras / minuto" 
14 palavras / minuto" 

IF VEL<1 OR <v>EL>6 GOTO 1200 



PRINT UEL;:F0R 1=1 TO 500: NEXT: RETURN 

'v^^^^sUBROTINA PARA ENTRADA VIA INKEY* 

0P*=INKEY*:IF 0P*="" GOTO 1230 ELSE RETURN 

'*K***SUBROTINA AUXILIAR PARA A8ERTURA 

FOR MM=M1(M) TO M2(M):PRINT MID* ( 1% , MM, 1 ) J : NEXT 

RETURN 



.-> 
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__ln 
clicS 





Linha TRS-80 



Inversdo de video 

Inverta o video do seu micro com este pequeno progra- 
ma, mas atencao porque essa dica nao inverte textos, ja que 
os equipamentos da linha TRS-80 nao possuem caracteres 
inversos. 

Esta rotina em Assembler foi construida com JUMP rela- 
tivos c pode ser alocada em qualquer lugar da memoriaRAM. 

10 FORN%= 28672 TO 28701: READ D :POKEN%,D: 

NEXT 

20 DATA 33,0,60,6,16,14,64,126,203,127,32,4,62,1 91,24,5 

30 DATA 47, 203,255,203,183,119,35,13,32,237,5,32,232,201 

Para acionar esta dica em BASIC Disco, digite: 

40 DESFUSR0 -28672 

50A-USR0(0) 

60 GOTO 60 

Para roda-la em BASIC cassete, use: 

40 POKE 16526,0: POKE 16527,112 
50 A - USR(0) 
60 GOTO 60 

E para testar, faca: 

50 FOR N% -15360 TO 16383: POKE N%, RND (95) + 32: 

NEXT 

60 FOR N-. 001 TO 6.28 STEP .02 

70 SET (63+44* COS (N), 23+ 22* SIN (N)) 

80 NEXT : A = USR(0) 

90 GOTO 90 

Eduardo Ribeiro Costa-RJ 



Se voce tern pequenas rotinas e programas 
utilitdrios real men te uteis tomando poeira em 
seus disquetes ou fitas cassetes, antecipe-se 
aos piratas e trate de divulgd-los. Envie-os 
para a REDAQAO DA MICRO SISTEMAS — 
SEQAO DICAS: Rua Visconde Silva, n° 25, 
Botafogo, RIO DE JANEIRO — RJ ', CEP22281. 

Nao se esqueca de dizer para qual equi- 
pamentos foram desenvolvidos. Desta forma, 
sua descoberta poderd ser util para muitos e 
muitos, em vez de desmagnetizar-se com o 
tempo em suas fitas e disquetes. . . 



Linha Sinclair 



Agilizando INPUT 

Essa rotina agiliza os INPUT de um programa, quando 
eles forem em grande numero e em seqiiencia. Todos os da- 
dos sao colocados num unico INPUT, separados por virgu- 
las, e logo em seguida distribuidos em variaveis indexadas. 

Para operar a rotina, basta entrar com o numero de da- 
dos que se deseja introduzir e depois digita-Ios scguidamen- 
te. Por exemplo, para entrar com uma seqiiencia de 1 a 7, 
basta digitar 7 e depois "1 ,2,3,4,5,6, 7". 



1000 INPUT K 

1010 DIM B(K) 

1020 LET D-l 

1030 LET FH) 

1040 INPUT AS 

1050 LET A$-A$+'\<T 

1060FORN=1TOLENAS 

1070 IF A$(N)-"," THEN 

GOSUB 2000 
1080 NEXT N 



2000 LET F - F+l 

2010 LET B(F) - VAL AS (D TO N - 1) 

2020 LET D -N+l 

2030 RETURN 



Sergio M&rcio Fur tad o Valeriano-RJ 



Linha 



Sinclair 



print a 

Para fazer um PRINT® nos equipamentos da linha Sinclair, substitua: 
10 PRINT A^;... 
por: 

10 PRINT INT (N/32), N-32* INT (N/32);.... 
onde e" menor ou igual a N e N e" menor ou igual a 704. 

Edson Cury-SP 



Linha TRS-80 



Cdlculo de fatoriais 

Calcule o fatorial de qualquer numero ate* 33, com 
esse pequeno programa: 



ID CLS 

20 CLEAR250 

30 1*320:10=512 

40 F0RX=64TU127 

50 SRT<X,18):Ser<:t27-X, 18) 

60 NEXT 

70 PRINTCHR$<23) 

BO PRIN'IPM66. n r A T R I A L"; 

90 F0RX*A4T0127 

100 5FJT(X>2M>:SFT<127-X.2io 

110 NFXr 

120 Ft>RIJ = lT[i50:NFXT 

130 PRINTGI, STRING* <6M,"tt"); 

li! PR INT0ID, ST RING* <6M ."»">; 

150 F0RII=lT035:NeXT 

160 FS=FS+1 

170 IFFS=2THFN190FLSFR0T0U0 

130 NEXT 

190 LLS 

200 Ftt=l 

210 INPUT'TATORIAL DE 0UAL NUNERCT'jPW 

220 IFPM>33THENPRINT"NUMER0 MUIT0 GRANDE! 

TENTE OE NOVO": FOR 

H=nriBO0:NFXf :finTD190 

230 IFPHOINT ( PU ) THFNCLS: 60T0210 

740 r0RI = nnPH 

250 Ftt=lKFtt 

260 NEXT 

770 PRINT"0 FATORIAL DF "Ptt'T' IGUAL A:"Ftt 

200 INPUr"OUTRO NUMERO <S/N)";A* 

290 IFA$<> M E"1HFNENDELGE190 



Luiz Gonzaga Alvarenga-GO 



Linha Sinclair 



Consertando linhas 

Quando for necessario consertar muitas linhas de um 
programa, em vez de usar varios SHIFT 7 e SHIFT 6, 
utilize esta sub-rotina: 

9995 INPUT L 

9996 POKE 16394.L-256 * INT (L/256) 

9997 POKE 16395JNT (L/256) 
9999 RAND USR 1476 

Execute GOTO 9995 e digite o numero da linha que 
deve ser editada. A chamada USR 1476 corresponde ao 
comando EDIT (SHIFT 1). 

Se as linhas a serem editadas estiverem em seqiiencia 
(de 5 em 5, de 10 em 10 etc.), voce pode acrescentar: 

9998 LET L= L+ (intervalo entre as linhas) 

Nesse caso, voce deve utilizar GOTO 9995 apenas na 
primeira vez, e para editar basta executar GOTO 9996, 
pois o proprio computador calculara o numero da linha 
a ser editada. 



Tito M. B. Horn em de Mello-SP 



Linha Apple 



Multicurvas 

Para desenhar incriveis curvas em alta resolucao, 
escolha os seus STEP e maos a obra. Para sair do dese- 
nho, e" so digitar TEXT e RTN, e a seguir RUN e 
RTN. Agora, rode esta dica e experimente com os 
STEP 1,2, 3. ..ate 20. 

1 REM MULTICURVA 

20 HOME 

30 PRINT "INTRODUZIR O STEP" 

40 INPUT S 

50 HOME 

6 HGR 

70 H COLOR=3 

80 FOR P=0 TO 800 

90 LET X=. 1*P*COS 
100 LET Y=. 1*P*SIN(P) 
1 10 IF X>240 OR Y>160 

GOTO 130 
120 HPLOT X+120,Y+80 
130 NEXT P 
140 STOP 






STEP S 
P) 



THEN 



Armando Oscar Cavanha-RJ 



Leitura fdcil do diretorio 

Uma das maiores dificuldades do sistema TRS DOS e 
a leitura de seu diretdrio. Mas com um simples programa 
em Assembler e dois PATCH podemos criar um diret6- 
rio simplificado, semelhante ao comando CMD"D:n" 
do BASIC: 



0100; 

01 10; 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 



DDIR 
JDOS 

INIC 



DIRA/CMD 

ORG 

DEFL 

DEFL 

LD 

LD 

LD 

CALL 

JP 

END 



0FFF0H 

4419H 

402DH 

A, (4225H 

IX,4271H 

(IX) , A 

DDIR 

JDOS 

INIC 



+ 6H) 



Depois, digite em TRS DOS READY: 



PATCH 
PATCH 



1 10IADD=4E2E,PIND=CD3E4B,CHG=CD8A50) < ENTER* 
10(ADD=508A,FIND=4469736B,CHG=4FC33E4B) « ENTER 



Para usar, digite em TRS DOS READY: DtRA: n 
< ENTER > , onde n e igual ao numero do drive. 



Geraldo Pinheiro Xavier-MG 



EQUIPAMENTOS 



• Vendo Vic-20, seminovo, 
todos os acess6rios. Tratar com 
Sergio pelo tel.: (011) 211-5569, 
Sao Paulo. 

• Vendo calculadora Tl 59. Pre- 
co Cr$ 140.000,00. Tratar com 
Adrian pelo tel. (011) 240-9611, 
ramal 21, Sao Paulo - Capital. 

• Vendo programs Microdata 
(Banco de Dados), da Microarte, 
para microcomputador Microen- 
genho. Tratar com Leonardo Sor- 
tino, tel.: (01 1) 282-4264 ou SSI- 
OTTO, Sao Paulo. 

• Compro microcomputador da 
linha Sinclair ou o CP-300. Da- 
niel Salvador Filho. Av. Bias For- 
tes 1122, apto. 125, Centro - Be- 
lo Horizonte - MG. CEP 30.000. 

• Vendo ou troco Micro-Enge- 
nho, 64 Kbytes, acionador de dis- 
quete, modulador de radio e acio- 
nador de jogos. Troco por vfdeo- 
cassete. Tratar com Sergio pelos 
tels.: (011) 262-5916 ou (011) 
832-3227, Sa"o Paulo. 




VENDO 



DIVERSOS 



SOFTWARE 



• Vendo programas para logica 
Sinclair como Polvos, TK Man, 
Kong, Labirinto tridimensional, 
Alerta Vermelho e Taipan. Tratar 
com Gilberto pelo tel. (011) 280- 
41 83. Sao Paulo. 

• Vendo ou troco programas pa- 
ra o TK 82-C e compati'veis. Pos- 
suo varios importados, entre apli- 
cativos e jogos. A maioria 6 em 
linguagem de maquina. Tratar 
com Isabel, Rua Rodrigo Soares 
de Oliveira, n9 255, Bairro 
Anhangabaii, Jundiaf, Sa"o Paulo, 
CEP 1 3200. 

• Compro ou troco programas 
para computador Atari ou Apple, 
em fita, cartucho ou disquete. 
Tratar com Jose" pelo tel.: (011) 
227-0848, Sao Paulo. 



• Vendo revistas americanas pa- 
ra microcomputadores, videoga- 
mes e vfdeo. Informacoes com 
Marcelo pels Caixa Postal 12.795, 
SSo Paulo, CEP 04798. 

• Troco a minha Caloi 10 (ano 
81), por um gravador cassete Na- 
tional ou interface RS 232. Car- 
tas para Ricardo de Oliveira, Rua 
Ludgero Martins, n° 67, CEP 
37170, Boa Esperanca, Minas Ge- 
rais. 

• Procuro estagio. Formei-me re- 
centemente no curso de Tecnico 
de Programacao de Computadores 
(nfvel 2? grau) pelo Instituto 
de Tecnologia O.R.T. do Rio de 
Janeiro. Tenho conhecimentos 
dos computadores IBM/360 e 
4341, de VM/C.M.S. e D.O.S./ 
VSE; dos microcomputadores 
Unitron (AP II) e Prokigica (CP- 
500) e das linguagens Cobol e 
Basic. Luiz Chalola (17 anos). 
Rua Republica do Peru 335/ 
201, Copacabana. CEP 22021 - 
Rio de Janeiro, RJ. 

• Compro livros sobre os micro- 
processadores 6502 e 8088 e so- 
bre programacao em linguagem de 
maquina no APPLE II, de prefe- 
rencia em portugues. Tratar com 
Angelo Andrade Cirino, Rua Car- 
los Alves n? 69, apto. 203, Pam- 
pulha, tel.: 441-3762, Belo Hori- 
zonte, MG. 



CLUBES 



• Clube de usua>ios de micro- 
computador no qual voce" troca 
iddias, programas e equipamentos. 
Informacoes pela Caixa Postal 
7459, CEP 01000, Sao Paulo. 



°™pro 



• Possuo uma Tl 99/4A e gosta- 
ria de entrar em contato com pos- 
suidores deste equipamento para 
troca de informacoes e experign- 
cias. Ricardo Augusto MartineMi 
Rua Castelo Branco, 680 — Praia 
da Costa - Vila Velha - ES, CEP 
29100, tel.: (027) 229-4498. 

• PETROCLUB TK/Sinclair:As- 
socie-se gratuitamente e receba 
periPdicos com jogos, utilitaYios e 
dicas referentes aos micros com 
logica Sinclair. Estamos formando 
uma biblioteca de programas e 
contamos com a sua colaboraca"o, 
enviando, se possi'vel, um progra- 
ma qualquer, juntamente com os 
seus dados pessoais e um envelo- 
pe selado. Envie para: Rua do Im- 
perador, 206/1102, CEP. 25.600, 
Petrdpolis, Rio de Janeiro. 

• Gostaria de entrar em contato 
com jovens possuidores de CP-500 
ou simi lares, para troca de jogos e 
informacoes. Possuo um CP-500 
com um drive. Contato com De- 
cio Yokota, Rua Moncorvo Filho, 
77, Butanta*, Sao Paulo, SP. CEP 
05507. 



CURSOS 



• A Iguacu Center Computado- 
res esta oferecendo o curso de 
Programacao de Computadores, 
incluindo: Introducao. BASIC 1, 
BASIC Avancado e AplicacSes 
Comerciais. O curso tern duracao 
de seis meses e os horarios sa"o di- 
versos: manha, tarde e noite, in- 
clusive aos sabados. Informacoes 
na Rua Marechal Floriano Peixo- 
to, n° 1.480, sala 148. Nova Igua- 
cu. tel.: (021) 767-5709, Rio de 
Janeiro, RJ. 



• A Divisao de Ensino da ADP 
Systems esta promovendo cursos 
para programadores e analistas. O 
primeiro, de uma serie voltada a 
produtos usuais. sera o CICs, des- 
tinado a aumentar a produtivida- 
de. Na parte de especial izaca"o 
profissional, sera" desenvolvido o 
curso Auditoria de Sistemas. Maio- 
res informacdes pelo tel.: (011) 
285-3283, Sao Paulo, SP. 

• Comunicacao com o Sistema, 
VM/CMS: Conceitos e Funcoes. 
Microcomputadores e a Lingua- 
gem BASIC, Linguagem Assem- 
bler para o Sistema Operacional 
CP/M-80, Sistema Operacional 
CP/M e Linguagem LOGO para 
Criancas, sa"o os cursos que o Ins- 
tituto de Tecnologia ORT oferece 
no mes de maio. Inscricoes e in- 
formacoes na Rua Dona Mariana, 
213, tel.: (021)226-3192, Rio de 
Janeiro, RJ. 

• A Engedataest^ oferecendo Cur- 
so de Programacao em Microcom- 
putadores p/engenheiros e estu- 
dantes da area, com estagio em 
seu proprio CPD. Inform. Rua 
Sao Paulo, 1631/906 - Lourdes 
- Tel.: (031) 337-5636 - Belo 
Horizonte - MG. 

• A Servimec estara" promoven- 
do nos dias 02, 03 e 04 de maio, 
em Sa"o Paulo, o seminario A Mi- 
croinformatica — Uma Anilise 
Tecnica. Maiores informacoes a 
Rua Correa dos Santos, 34, tel.: 
(011) 222-151 1, Sao Paulo, SP. 

• A Compucenter esta oferecen- 
do. de 21 a 23 de maio, o semina- 
rio ComparacSb e Selecao de Mi- 
crocomputadores. Maiores infor- 
macoes sobre local e preco pelo 
tel.: (011) 255-5988. Sao Paulo, 
SP. 

• Controle de Processos, Progra- 
macao BASIC, Manutengao do 
micro DGT-101 e Projeto de In- 
terfaces para Microcomputadores 
sao os cursos oferecidos no me"s 
de maio pelo Centro Brasileiro de 
Informatics, a Av. Passos, 115, 
salas 202, 204 e 215, Rio de Ja- 
neiro, RJ. 



ffi.S. Services 




QUEM MAN DA 
NESTA PAGINA SOU EU! 



Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: 
voce e quern decide o que, quando e como anunciar nos 
Classif icados MS. Quanto voce? tera que pagar? Isso tambem 6 
decisao sua. Preste atencao: 

• cada linha de texto (30 toques, incluindo os espacos em branco) 
custa Cr$ 2.000,00; 

• linhas incompletas serao cobradas como inteiras; 



• o proprio anunciante deve checar o valor de seu anuncio com o 
nitmero de linhas que ele contiver; 

• o anuncio deve vir acompanhado de um cheque nominal a ATI 
Editora Ltda; 

Os textos devem ser datilografados ou escritos em letra de forma, 
obedecendo as 30 batidas por linha. Veja um exemplo: 



V 


e 


n 


d 


o 




D 


G 


T 


- 


1 










c 





m 




3 


2 




K 




R 


A 


M 


9 




V 


i 


d 


e 







e 




g 


r 


a 


V 


a 


d 


o 


r 




c 


a 


s 


s 


e 


t 


e 


• 




T 


r 


a 


t 


a 


r 


c 





IB 




M 


a 


r 


c 


O 


s 


* 




t 


e 


1 


• 
• 


( 





2 


1 


) 


2 


6 


7 


- 





3 


3 


2 


• 



„ TMIgto 

Sistemas 



Maiores informacoes pelos tels.: (021) 266-0339 - RJ ou (011) 853-7758 - SP. 



APPLE II 



Transformacao PAL-M 

Assistencia Tecnica 

Expansoes 



UNfTRON 



Ass 



stencia Tecnica 
Autcrizada 
Vendas • Leasing 
• Expansoes 



MICROEQUIPO 



Manutencao 
na sua empresa 



I Av. Marechal Camara. 271/ 
\Rio de Janeiro Tel: 262-C 



-3289. 



PRH 

C0NSULT0RES 



Assessoria em Processamento de 

Dados 

Desenvolvimento de Programas 

PROGRAMAS PRONTOS 

(TRS-80-III — diskette) 

• Emissao de Carries 

• Controle de Convenios 

• Processamento de Cadastros 

• Historico Medico 

• Mala Direta 

• Lista de Precos com Reajuste 
Automatico 

• Cadastro de Artigos de Re- 
vistas e/ou Livros 

• Cadastro de Clientes 



PRH Consultores 

Rua Mexico, 70— Grupo 810/811 

Centro-RJ Tel.: (021)220-3038 



Alfa Bit 

CLUBE DE COMPUTAQAO 



Associe-se ao ABCc e ganhe Anuncio GRA- 
TIS.- um exemplar de ALFABIT e DESCON- 
TOS de 10% na compra de LIVROS. REVIS- 
TAS. CURSOS e PROGRAMAS. alfim de 

— Servicos de '"Repnnters" e Consulias 

— Associacao a Clubes Europeus 

— ParncipaQSo em Cursos. Congressos e 
Concursos 

— Novos Laftcamentos a PREQOS REDUZI- 
00S (Breve: IMPRESSORA DE AGU- 
LHAS P/MINI-MICROS DE LOGICA SIN- 
CLAIR - Lancamento "Digital EletrO- 
nica") 

ANUIDADE- Cr$ 1.000 (hum mil cruzeiros) 

somente ao receber seu Cartio-Descontos e 

um exemplar de "Alfabit" 

Envie nome. endereco. profissSo e texto do 

seu anuncio (caso queira pubiicacao ime- 

diata) 



NOVIDEIAH 

Comunicacao e Informatica Ltda. 

CAIXA POSTAL 9978 

CEP 01051 - Sao Paulo. SP 
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Comercializamos seu proje- 
to-Soft ou Hard. Escreva-nos 



e- 



INFORMATICA I. IDA 



PROGRAMAS PARA APPLE 

E 

COMPATIVEIS 



• Contabihdad* Gcrnl 

• Editor de T«xio 

• Sislema de Arquivot 

• Mala Oirela 

• Sistema Estatlstico 

• Controle Bancano 

• Adrnimstracao Imobiliaria 

• Sistema BiMiotecano 

• Escrrtorio da Advocacia 

• Utllttarlos em Geral 

• Jogoe Divarsoa 



DRSKWOIAIMKNTO OK KSPKCIHCOS 



• Atendimento pelo reembolso postal 

• Vendas de computadores. 
acesaorloa a suprtmentoe 



K\. Franklin Rnosrsrll. 2J/R0J — Casleto 
Itts.: I02h 2J0-*«9 - 220-IM27 
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"MIKROS" 

AGORA NO 

LEBLON! 

Av. Ataulfo de Paiva 566 - Ix>ja 21 1 
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APROVEITE OS PRECOS 

"INCR1VEIS" DA "MIKROS" 

DO LEBLON, EM SUA SPOCA 

DE INAUGURACAO. 
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NAJA — JR-SYSDATA — UNITRON 
COLOR 64 — APPLE TRONIC 
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SISTEMAS 



SOFTWARE (NAC.E IMPORT) 

IMPRESSORAS E PERIFliRICOS 
CURSO DE BASIC 



PROF1SSIONAIS 

ALTAMENTE ESPECIAUZADOS 

PARA ATENDE-LO 




ROBOTIC 



— MICROCOMPUTADORES 
DE TODAS 

AS MARCAS 

— SUPRIMENTOS 

— PEQAS E PARTES PARA 
MICROCOMPUTADORES 

— JOGOS ELETRONICOS 



RUA BARATA RIBEIRO. 370 

— Loja 105 APART HOTEL — 

COPACABANA — RIO — RJ 

TEL. (021) 257-6396 



O lugar compativel 

com voce e seu 

micro. 



— Micros 

— Acessorios 
— Software 

— Livros 
— Revistas 



Rua Dias da Cruz, 215 

s/804 — Rio de Janeiro — RJ 

Tel.: 594-2699 



a bits e Bins 

COMPUTADORES 



• VENDAS 

• ASS. TECNICA 
ESPECIALIZADA 

• PROGRAMAS 

• DISKETTES 

• FITAS 

• SERVICOS 

• CURSOS DE BASIC 

• FORMLLARIOS 



CONSERTOS EM 24 HORAS 

(COM GARANTIA) PARA 

O CP-500 e DGT-100 



EM SAO CONRADO 
Estrada da Gavea, 642 
Lj. BTel.: 322-1960 « 




MICROLOGICA 

Engenharia de 

Sistemas Ltda. 

Consultoria de Hardware 

ASSISTENCIA TECNICA 

AUTORIZADA 

A MICROCOMPUTADORES 

Compativels com APPLE, 

TRS80. IBM PC. ZX81. jogos 

eletrOnicos e outros. 

Lanpamento do contrato de 

manutencao com custo 
minimizado: 50% do valor 
normal acrescido do custo 
de paces (quando houver). 

Ternos apiicativos e jogos 

novissimos para 

APPLE II em Diskettes 

por Cr$ 15 000.00. 

AV. PRESIDENTE VARGAS, 

542 1.912- 263-9925 



VENDA OE 
MICROCOMPUTADORES 
TK 83, 85, & 2000 COLOR 

CP 300, 500 & 600 
COLOR 64 (EXT. BASIC) 

SUPRIMENTOS 

Disquete Mas. form continuo 

CONSULTORIA DE SISTEMAS 

Oiagnostico e apoio a decisao 



CURSOS E TREINAMENTO 

Introducao aos microcomputadores 

Linguagem Basic 

Aplicacao dos micros 

na Engenharia 

Microcomputadores para criancas 

INSCRIQOES ABERTAS 
Livros e revistas especiahzados 



Vise, de Piraja, 547 Sobreloja 21 1 

Cep. 22.410 Ipanema Rio RJ 

Tel.: (021) 274-1042 

DESPACHAMOS PARA 

TODO O BRASIL 



No Recife, visite 
T E L E V i D E (') 

O Lojao de Intormatica mais 
descomphcado do pais! 
Micros, pentericos. suprimen- 
tos, Software. Cursos, Livros e 
Revistas. Componentes Eietro- 
nicos. Pecas e Som 



PRECOS ESPECIAIS 
FINANCIAMENTO PROPRIO 



Compre pessoaimente ou peio 
Reembolso Postal 

TELEVIDEO LTDA. 

R. Marques do Herval, 157 
Tel.: (081) 224-8932, 
(50000) Recife. PE 



(') Sr. Industrial: distribuimos seu 
produto nas melhores condiqoes. 
Contato em Sao Paulo: Tel.: (01 1) 
220-7377 (Sr. ANDERSON - Mun- 

l disom) j 
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partir desta licSo, voltamos a descrever osgrupos de instru- 
coes na scqucncia definida pcla Zilog. Neste numcro vamos conversar 
sobrc o gntpo de aritmitica de propdsito geral e controle da UCP. Va- 
mos, cntao. conhecer estas instrucoes. 
1 Ajustc Decimal do Acumulador 
Formato : DAA 

Operacdo: Lfetua o ajuste decimal do contcudo do Acumulador. 
Cddigo objeto: 



DAA 



1 1 1 1 

10 

I I I 1 J 


— 1 
1 


1 — 1 
1 


- 

1 



Descricdo : A instru^ao de ajustc decimal convene o conteudo do Acu- 
mulador em dois di'gitos decimals, codificados em dois« 
grupos de quatro bits. E utilizado normalmcnte apos a 
adicSo de dois mimeros decimais (BCD). 

Ciclos de mdquina (MJ : 1 

Slates (TJ : 4 

Flags afetadas: 

S — setada se o bit mais significative- (MSB) do Acumula- 
dor apos a operacao c 1 . Senao, e rcssetada; 
Z - setada sc o conteudo do Acumulador apos a operacao 
e zero. Senao, e ressetada; 

H - esta flag e usada na conversao e pode assumir diferen- 
tes estados; 

P/V - setada se o conteudo do Acumulador, apos a opera- 
cao, contiver uma paridadc par. Senao, e ressetada; 
N - nao afetada; 

C - esta flag e usada na conversao c pode assumir diferen- 
tcs estados. 

Exemplo : Se realizarmos uma operacao de adicao entrc 1 5 
(BCD) e 27 (BCD).obteremoso seguinte resultado: 



1 5 

21 



t\2 



mav, quando realizamos esta operacao de acordo com a aritmctica bina- 
ria padrao, obtemos o seguinte resultado: 



0001 
0010 



0101 
0111 



001 1 



1 100 



<3C) 



80 



Esta soma nao e decimal. A instrugao DAA ajusta o resultado para a 
representacJo decimal (BCD)." 



0001 



0010 



0101 



0111 



001 1 
0100 



1 100 
0010 



( DAA) 



e obtemos o resultado correto, que e 42. 

2 - Complementa Acumulador (complemento de 1 ) 

Formato : CPL 

Operacdo : Complementa o conteudo do Acumulador. 

Cddigo objeto : 

CPL 



— 1 — 


1 


— 

1 


— 



— 

1 


1 


— 

1 

1 


1 

J 



Descricdo : O conteudo do Acumulador e invcrtido (complemento de 1). 
Ciclos de mdquina (MJ : 1 
States (TJ : 4 
Flags afetadas : 

S - nao atctada; 

Z - nao afetada; 

H - setada; 

P/V - nao afetada; 

N - setada; 

C - nao afetada. 

Exemplo: Se o contcudo do Acumulador e 101 1 • 0100. 

apos a execucao da instrucao CPL, o conteudo do Acumu- 
lador sera' 0100 • 1011. 

3 - Ncgacao do Acumulador (complemento de 2) 
Formato :NEG 

Operacdo: Efetua uma operacao de complemento de 2 sobre o conteu- 
do do Acumulador. 
Cddigo objeto : 



NF C 



— I i 1 1 1 T— I — 

1110 110 1 

— i 1 1 1 1 1 1 — 

10 10 

__1 l__l l_l 1—1 
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Descricdo: O contcudo do Acumulador e negado (complemento de 2). 
Esta operacao subtrai de (zero) o conteudo do Acumulador. 
Ciclos de mdquina (MJ : 2 
States (TJ : 8 (4,4) 
Flags afetadas : 

S - setada se o resultado e' negativo. Senao, e ressetada; 
Z - setada se o resultado c zero. Senao, 6 rcssetada; 
H - setada se ocorre um emprestimo do bit 4. Senao, c 
rcssetada ; 

P/V - setada se o Acumulador tinha 80H antes da opera- 
cao. Senao, e ressetada; 
N - setada; 

C - setada se o conteudo do Acumulador era difcrente de 
zero antes da operacao. Senao, e ressetada. 
Exemplo : Sc o conteudo do Acumulador c 1001 • 1 000. 
apos a execucao da instrucao NEG, o conteudo do Acu- 
mulador sera' 01 10 • 1000. 

4 - Complementa Flag Carry 

Formato: CCF 

Operacdo : Complementa a flag carry. 

Cddigo objeto: 



CCF 





— 1 


— 

1 




1 

. .. 


1 

I 


1 


—" 

1 

I 


1 



>3F 



Descricao: A flag c no registrador F e invertida (complementada). 
Ciclos de mdquina (Ml : 1 
States (TJ : 4 
Flags afetadas : 

S - nao afetada; 

Z - nao afetada; 

H - copia do conteudo da flag c antes da operacao; 

P/V - nao afetada; 

N — rcssetada; 

C - setSda sc o contcudo da flag c era antes da 
operacao. Senao, c ressetada. 
5 - Seta Flag Carry 
Formato : SCF 
Operacdo : Seta a flag carry. 
Cddigo objeto: 



SCF 



— 1 



1 


1 


— 

1 




I 


— 
1 


1 


1 



Descricdo : A flag c no registrador F 6 setada. 
Ciclos de mdquina (M) : 1 
States (TJ : 4 
Flags afetadas : 

5 - nao afetada; 
Z - nao afetada; 
H - ressetada; 
P/V - nao afetada; 
N - ressetada; 

C - setada. 

6 - No Operation 

Formato : NOP 

Operacdo.^ao executa nenhuma acao. 
Cddigo objeto : 



NOP 



— ' 1 1 1 1 1 1 — 

00000000 

— I 1 — I — I 1 I 1__ 



Descricdo: Esta instrucSo e passiva; ela nao executa nenhuma acao no 
microprocessador. E utilizada na substituicao de instrucoes 
evitando que se alterem osenderecos 

Ciclos de mdquina (MJ : 1 

States (TJ : 4 

Flags afetadas: nenhuma 

7 HALT 

Formato : HALT 

Operacdo : Suspende a execucao dc um programa. 



» 
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CIBERNE * a mais avancada e lofisticada linha de sotfwere para microcomputadores. criada 
para livrar vod dos inconvenientes de produces amadorai ou de origem duvidosa Com 
CIBERNE voo* leri uma diversificada linha dc programs} novos. lancados penodicameme 
em pacoies economicos. Com gravacao profioional e em embalagem inviolavel. CIBERNE 
oferece a voce garamia total em qualquer lugar do Brasil. 



PROGRAMAS EM FITA PARA TK-82. 83. 85. CP 200 E COMPATfVEIS 



Com o exclusive FLASH SISTEM que permite um carregamento 6 vexes man rapido 
que o normal, sem qualquer modificacao no equipamento. 



JOGOS • 



S«n qu*iqu« acrtoomo no pre«o »oo» •noontn 
■ntnitanimanlo. Ua loyttick ou i.claoo 



cadi fiti 5 axciontn 10901 pare mi latar • 



BICHOS A CIA 

■ CASCA. A COBRA 

• CRAZY KONG 

■ CENTOPEIA 

■ FROGGER 

• SUCURI 



PATBULHA GAtAcnCA 

• NAVE MAE 

» FUNGOS MUT ANTES 

• GALATICA 

• SOS VEGA III 

■ PERSEGUIOOR 



COMBATE 

■ NIGHT GUNNER 

■ ALERTAVERMELHO 

■ POLARIS 

• DUELO 

• RAM8U 



AmtaTTUBA * URUIO 

■ pirAmide inca 

■ sabotagem 

■ oaventureiro 

■ MAZOGS 

■ USS ENTERPRISE 



UIILIIARIOS • 



nor 1 -Pius 



SOG Uma nova ■ man podcrota vattfo da ROT I 
• mu leniacional Sittema Optraciorul GrM ico. 
- MERGE 
* PARA BREVE 



■ ASSEMBLER 

■ OESASSEMBLER 

■ COMPILADOR BASIC 



• OMERCAOOR 

• STARQUEST 

• ZARAKS 



• ESTRELANEGRA 

• CRISTAL MAGICO 

• GUERRILHACOSMICA 



• ORCA I (Oroimcnto domtsticol 

• ARQ I (Arquivoda Dadotl 

• CASHFLOW 



EM TODO O BRASIL NAS MELHORES LOJAS DO RAMO. 



Informacoes, Distribuicao e Vendas: 

J VA- MICROCOMPUTADORES LTDA. 

Av. Graca Aranha. 145 siloja 01 Rio de Janeiro - RJ 
CEP20.030 Tel.: (021) 262-5968 




LIVRARIA SISTEMA 

Loia GA1.ERIA Ml -TROPOl I LJ 8 1 a S/LOJA 

TELS 259 1503 257 611H SP 

ENTRADAS DA OALEHIA 

AV SAO LUIZ. 187 lAniiqo 1531 

PRACA DOM JOSE CASPAR, 106 SP 
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SEMPRE NOVIDADES 

POR DENTHO DO APLE uma aborrlagem do applsoM Tucci 

MANUAL DE COBOL ESTRUTURADO McCracken 

THE CREATIVE TRS^O Ma/ur 

LEARNING LOGO ON THE APPLE II 

PROGRAMMERS GUIDE TO CP/M Lit»>$ 

6502 ASSEMBLY LANGUAGE PROGRAMMING Fernandez 

RPG II • Pereira 

THE CREATIVE APPLE Pelc/arsk. 
USING CP/M a sell teaching guide Fernandez 
ANALISE ESTRUTURADA DE SISTEMAS • Gane 
APPLE BASIC DATA FILE PROGRAMMING Fmkel 

- LEARNING TO PROGRAM IN C Plum 
USING DBASE II Townsend 

• MANUAL DE BASIC paia tictema* compativeis com o app 

Peckham 

GOLDEN DELICIOUS GAMES FOR THE APPLE COMPUTER 

Franklin 

WRITING INTERACTIVE COMPILERS AND INTERPRETERS 

Brown 

8080/Z80 ASSEMBLY LANGUAGE Miller 

COMPUTADORES BRASILEIROS industria, tecnologia e depen 
dencia • Tigre ... 

APPLE GRAPHIS & ARCADE GAME DESIGN Stanton 
INTRODUCTION TO 8080/8085 ASSEMBLY LANGUAGE PRO 

GRAMMING - Fernandez 

SPREADSHEET SOFTWARE FROM VISICALC TO 1 2 3 Hender 

son 

IBM'S PERSONAL COMPUTER 2nd edifon DeVoney 

USING 1.2.3 LeBlond 

CP/M SOFTWARE FINDER Digital Research 

REAL MANAGERS USE PERSONAL COMPUTER" Heiser 

IBM PC EXPANSION & SOFTWARE GUIDE Friedman 



ATENOEMOS POR EEMBOLSO 
CORREIO E VARIG Kora da Capital) 

PEDIDOSPARA Cx Postal 9280 
. CEP 1051 SAO PAULO SP 



16 500. 
15 700. 
41 000. 
58.000. 
33.000. 
38 000. 
18.500. 
41.000, 
38000. 
7.900. 
38.000. 
63.500. 
48 D00, 



8 700. 
33 000. 



40 000, 
33.000, 

7 900. 
51.000. 

33.000. 

51.000. 
51 .000. 
46.000. 
46 000. 
46 000. 
61.000. 



CURSO ASSEMBLER - XV 



Cddigo objeto : 



HALT 





— 1 


1 


— 

1 


1 


— 



1 

I 


1 






Descricdo: k. instrucao HALT suspende a operacfo do microprocessador 
ale que uma interrupcao ou um RESET sejam recebidos. 
Durante o estado de HALT, o microprocessador executa 
instrucocs NOP para manter ativa a logica de refresli das 
memorias. 

Ciclos de mdquina (M) : 1 

States (T) : 4 

Flags afetadas : nenhuma 

8 - Desabiiita Interrupcao 

Formato : DI 

Operacdo: Desabiiita interrupcao. 

Cddigo objeto: 



DI 



1 


— 

1 

- 


— 

1 


1 


1 — 1 



1 1 J 


1 


1 

1— 



Descricdo: Esta instrucao desabiiita qualquer interrupcao mascarada, 
ressetando os flip-flops de habilitacao de interrupcao (IFF! 
c IFF2). 

Ciclos de mdquina (M) : 1 

States (T) : 4 

Flags afetadas : nenhuma. 

9 - Habilita Interrupcao 

Formato : EI 

Operacdo: Habilita a interrupcao mascarada. 

Cddigo objeto: 



E I 



1 


— 

1 


— 

1 


1 

I 


1 

I 







1 


1 



Descricdo: Lsta instrucao habilita qualquer instrucao mascarada, setan- 
do os flip-flops de habitacao de interrupcao (IFF1 c IFF2). 
Note que as instrucoes EI e DI desabilitam uma interrupcao 
mascarada durante a sua execucao. 

Ciclos de mdquina (M) : 1 

States (T) : 4 

Flags afetadas : nenhuma. 

Exemplos: Quando o microprocessador e desabilitado a 
aceitar interrupcoes mascaradas pela instrucao Df, a UCP 
nao responde a um sinal de Interrupt Request (TNT). So- 
mente apos ser executada uma instrucao EI, a UCP ira no- 
vamente responder a um sinal INT. 

10 - Seta Interrupcao no Modo 

Formato -AM 

Operacdo : Seta o modo de interrupcao para operar no modo 0. 

Cddigo objeto: 

IH 



1 


— 

1 


— 

1 


' 




— 
1 


1 


■■ 





1 





1 

J— — 










I I 


1 


1 




I 




Descricdo: Esta instrucao seta o modo de interrupcao para o modo 0. 
Neste modo, o dispositivo que provoca a interrupcao pode 
inserir alguma instrucao no bus de dados que c cxecutado 
pelo microprocessador. O primeiro byte enviado pclo dispo- 
sitivo e lido pela UCP durante o ciclo de aceitacao da inter- 
rupcao e os bytes subseqiientes sao lidos numa scquencia 
normal de leitura. A instrucao normalmente enviada pelo 
dispositivo e um RST (restart), que provoca a execucao da 
rotina existente no endereco especificado como operando 
da instrucao RST. 



82 



I xistcm oito possibilidadcsde uma instrucao de restart: 



RSI 


CbDICO DE 


1' 1 H A C A 


1 NDI RE CO 


DE 


OF SV I 


RSI OH 


C7 


H 





H 




RSI 8 H 


CI 


H 


8 


H 




RST 1 H 


07 


H 


10 


H 




RSI 18 H 


DF 


H 


18 


H 




RSI 20 H 


E7 


H 


20 


H 




RST 28 H 


EE 


H 


28 


H 




RSI 30 H 


T 7 


H 


}0 


H 




RSI )8 H 


1 1 


H 


18 


M 





Ciclos de mdquina (M) : 2 

States (T): 8 (4,4) 

Flags afetadas: nenhuma. 

1 1 - Seta Interrupcao no Modo I 

Formato :IM I 

Operacdo : Seta o modo de interrupcao para operar no modo 1 

Cddigo objeto: 

IM 1 



1 1 


— i — r i i 
10 110 1 


1 


10 110 

l 1 L 1 




Esta instrucao seta o modo de interrupcao para o modo 1 . Neste modo. 

o microprocessador responde a uma interrupcao com um restart para a 

posicao de memoria 38H. 

Ciclos de mdquina (M) : 2 

States (T): 8 (4 .4) 

Flags afetadas: nenhuma. 

12 - Seta Interrupcao no Modo 2 

Formato :IM 2 

Operacdo : Seta o modo de interrupcao para operar no modo 2. 

Cddigo objeto : 

IH 2 



r- -t i i 

1110 1 


1 


1 


10 11 

1 1 i — 1 


1 


1 

. -I — 




Descricdo: Esta instrucao seta o modo de interrupcao para o modo 2. 
Neste modo, e possi'vel uma chamada indireta para uma po- 
sicao de memoria. Com estc modo.o microprocessador for- 
ma um numero de 16 bits- os oito bits de alta ordem (MSB) 
sao obtidos pelo conteiido do registrador de interrupcao I c 
os oito bits de baixa ordem (LSB) sao colocados no bus 
de dados pelo dispositivo que provocou a interrupcao. 



1 b 



registrador I 



8 7 



dispositivo 



Ciclos de mdquina (M) : 2 
States (T):& (4,4) 
Flags afetadas : nenhuma. 
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PC 2001: o 16 bits mais 
compativel com o mercado 




COM O IBM PC 

PC20Q I e o mais compteto e versatil rmcrocomputador bmsiteiro de 1 6 bits, rea/menre compativel, em hardware e software, com 
o PC dd IBM, o micro que veodeu mais de 600. 0OO umdades em 2 anas nas Estados Unidos. 
O MAIOR NUMERO DE PROGRAMAS DO MERCADO 

Sao mais de 50. 000 titutos, com tecnotogia e preco mcfanais, que mckiem gerenciamento de bancos de dados, apdcativos 
comerciais, ftnanceiros e cientificos 
MODULAR E EXPANSIVEL 

Adkionan,. i.os o PC200 J cresce, execut&ndo desde tarefas rotineiras ate cantroles admmtstrativas e de processes mats 

sofisucados, atuando como concentrador de mtormacoes. terminal mtetigente ou descentratizador de sistemas. 
ALGU/VS DADOS TECMCOS 

■isodor Intel 8088 de 1 6 bits, 5 MHz; memoria ROM de 8 nte 40KB e memoria RAM de 64 a 5 J 2KB; cmco conetores de 
expansao de hingdes; momtores de video em fdsforo verde ou policmmaticos; interface de ate 16 terminals para muttktsu&rios 
alguns dos detafnes do pequeno micro que trouxe ao Brus ttihdade de um grande sistema. /a testado e aprovado por grandes 

■ ■ 
SUPORTE LINK 

O PC20C ' omo LINK 727 pela Link Tecnologia, a pftmem I brasifem de desenvolvtmento, que reune marketing 

e tecnologia no fomectmento de produtos e suporte sem simiiares no mercado Isto significa o methor suporie ao usuario, e atrtda 
pronta entrega, garantm de um ano. tremamento, assistern:t,i :■ *etuada no cln:nn>. o preco 

mats acessivel do mercado, e uma rede quattficada de revendedores ^m 
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Este livro procura aiender oxa- 
rarnen te A necessid ade do lovur sos 
estudsntes o que 6 a compu tadar 
c quoit OS principalis conceitos re' 
laclonados ao uso desa mAquina. 
em um n ive I aceitavel para estu- 
dantei, t*cmco», prolissiortajj ou 
ge rentes em cujo Area de fonTiB- 
q$o provisional a enfase principal 
nao wja a MalemAtica- c um livro 
voltado principal men xe para o» 
cursos pralissionatizantes de 2° 
grau, nffo tendo coma fim primei- 
ro i formacJo de programadores 
ou analitxo* de si 5temas de proces- 
larrtemo de dados. Sua finalidade 
e a de set um pre- requisite para 
esses cursos. 

Exemplos rotmeiros, de facil 
assimilucab, quase sempre acorn- 
panhado* de iluitrar;5eselemertta- 
res, aparecem ao long© de lodo O 
texto para familiarirar o etludan- 
te com as apiicacdes dos compu- 
(adores e para remover a tdeia 
generalizadB de que esses equipa- 
menios «ffo por demei* sofistica- 
dos para terem eniendidos e usa- 
dos peiii motor parte das pessoas- 
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BASIC 



VICTOR MRSHAWKA 




MIRSH AWKA, V,, Ungwtgvm 
BASfC. Uvraria Nobel, 



L'nguagem BASIC ira/ infor- 
macoet a conceitos compu tacio- 
nais com a linalkfade de dae maior 
entbasamento aos imciantes, pas- 
sibiiitando-lhes conhecer melhor o 
mundo dos microcomputadoret 
pessoais nacionais. A obra parte 
de conceitos e explicagoes basics* 



de como funciona um computa- 
dor pessoal ate chegar as instru- 
cts de como operar, editar e 
conuolar programas em BASIC- 
O conteudo dos dei capCtuios 
Htd .jssim d^tnbufdo: Funda* 
memos da Compu tac Jo; Proces- 
samenio Intcrativo; Iniroducffo ao 
BASIC; Valores e Vanaveis; En- 
trada e Sat'da. Con I role de Pro- 
grama; Sub-rotinas, Manipu'acao 
de Conjunios ou Tabelas; Manipu- 
lacaTo de Strings u Aipecios mats 
Avaneados do BASIC. A parte 
linat apresente problemas a serem 
resolwdos pelo propno lei tor, 
aldm de um gfottano completo. 



MOREIRA, J, A. r Brincando com 
o computtKior, Editor* Campus. 

Esta obra. fruto das observa- 
coes do autor em sale de aula, no 
trabalho e em con versa* com ou- 
tros provisionals,, vem completar 
seu primeiro livro "Cnanca tarn- 
bem fa/ program as", tambem edi- 
tado pels Editora Campus. Deni- 
nado ao publico mliinio-iuvenil, 
que, cade vm mars interessado em 
compu tacab, dispfle de pouqui's- 
simas opcOes de leitura, o texto 




vem preenclier uma importante la- 
cuna na blbiiografin sobre o sssun- 

to. 

A aboidagem e bastonte um 

pies, a linguagem clam e acesil'vel 
e as ilumacdcs atraentes, facili- 
tando a aprendizagem das nocoes 
bdsicas sobre a hrst6na do com- 
pu tador. seus componentes e seu 
lunctonamenio. 



SEJA PILOTO OU MECANICO 



DE AVIOES 



OU HELICOPTEROS 




RIO DE JANEIRO 



EMPAER 



if»rn 



erro 



Em MICRO SISTEMAS nP 29. pdgina 29. a Iislagcm 
Copsys - com o intuito dc facil itar a leitura - 
aprescntou eipacos em branco dcsnccc&sirios, que 
causam problema na hora de radar o ulilitario, Sendo 
assim, voce deve compactar. ou seja, supriniir lodos os 
espacos em branco da linha 5000 a linjia 5530, 

Em MICRO SISTEMAS n9 30, na materia Fticotao de 
fmrdware para os Shwbir. a figura 1 1 ( pagma 39) foi 
editada com alguns erros. A figura correta e' a que 
se segue: 




Figura 11 da materia Pacotdo de hardware para os Sinclair 



E NESTE ESCRITORIO 
QUE SE FECHAM 

OS MELHORES NEGOCIOS 



No Brasil de ho je .. nenhuma empresa 
pode perder a oportunidade de mostr or 
suas novas ideias, novas equipamentos 
e servicers no maior centre economic© da 
Pais: Sao Paulo. 

O caroinho esta aberto para voce na 
1 1? FUSE, de 20 a 24 de junho. Alias, essa e a 
epoca mais propicia para in vest ir e acompanhar 
as atuais conquistas desse mercado. 

Essa Feira foi cuidadosamente planejada para 
ser o mais iucrativo encontro entre a of erta e a 
procure reunindo milhares de diretores, gerentes. 
empresdrios do Brasil e do exterior, que estardo 
presentes para conhecer e fechar negocios 
que proporcionem aumento de qualidade e reducdo de 
custos operacionais . 

No Parque Anhembi voce conhecera as ultimas con- 
quistas na area de iniormdtica, telecom unicacdes, moveis 
e instalacoes, brindes. consul toria e assessoria. entre outros 

Para quem quer fechar negocios de milhdes. um aviso; 
esta na hora de reservar o seu 
estande e garant ir o lugar que ^~ 

sua empresa merece . 

Sot ores: 

P rocessamento do dados 

• Arquivo, closstfica- 
cao e mi ctof ilmagem 

• Instalocao e 
mobiliario * Mdquinas 
dooscrovor, do calcular. 
do contabiiidado. do 
processamento de 
dinheiro e cheques 

• Acessorios e materials 
" Cop las. impressdo. aca- 
bamento « •ndorecamento 

• Maquinas grdiicas o matoriais 

• Controles visuals e reloglos 

• Segwanca e saude no trabalho 

• Artigos do papelaria, desenho e 
escrita • Consultoria e Assessoria 

• Services ero genii * Publicacoes 

• Ensino e Pesquisa • Bancos e 
Finance iras. 




1 1? Feira Internacional dm Uteniilios e Servi cos de Escritor : d , 

Horario : das 9 as 1 8 horas 

Patrocinlo: Febraban - Fed erar;do Bras Liotra das Associate** de Bancos 

Feaaban - Federacao Nacional de Bancos 

Promocao: Alcantara Machado Feiras e Promocoes Ltda , 

Rua Brasilio Machado. 29 - Sao Paulo. SP - CEP 01230 - Telelonos: 826-911 1 • 674323 • Telex (011) 22398 AMCE BR 



BmMo avtoriusdo * ollclalUado p«lo CDC 
do MlDJit*rio de led uiirlo • do Coni*rclo. 



Veiculooficiah 
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NOVO CP 300 PROLOGICA. 



Tres rotinas, tres apresentaqoes diferentes, e todas para programas que 
rodam na familia TRS-80. Mostre que seu programa e bom desde o comeqo 



Sen programa merece 
uma boa apresenta^ao 



Opequeno 
grande micro. 

Agora, na hora de escolher enlre urn 

microcomputador pessoal simples, de facil 
manejo e urn solisticado microcomputador 
profissional, voce pode ficar com os dois. 
Porque cfiegou o novo CP 300 Prologica 
novo CP 300 lem preco de 
microcomputador pequeno. Mas memoria > 
de mtcrocompulador grande. 

Ele ja nasceu com 64 
kbytes de memoria 
interna com 
possibilidade de 




Com pah ve I com 

programas em Ills 
casscfeou em Cisco 



Eduardo Hauff 



Pode ser 

acoplado a uma 

impress or a 




Pode ser ligado ao seLfaparelho de TV da 
mesma lorma que no terminal de video 
de uma grande empresa. 
Com o CP 300 voce pode 
fazer conexoes telefonicas 
para cofeta de dados, 
se utilizar 
deuma 
impressora 

e ainda dispor'de todos 
os programas existentes 
para o CP 500 ou o 



ld£CI L 

1 




Pode ser ligido 
a urn televisor comum 
ou a urn solisllcatfo 
terminal de video 



Permit* 



O programa a seguir 6 composto de tres rotinas que de- 
senham tres figuras em perspectiva para serem utili- 
zadas em apresentacdes ou inicializacoes de progra- 
mas em BASIC, para todos os micros compativeis 
com o TRS-80. 

Nas rotinas 1 e 3, o titulo a ser inserido no desenho devera 
conter no maximo 23 caracteres (tin has 1 20 e 400) a partir 
da posicao P (tinhas 1 10 e 410). Ja na rotina 2, esta limitacao 
se amplia para 64 caracteres (tinha 340). 

programa propriamente dito devera ser colocado apos 



as tinhas 200 para a rotina 1 . 350 para a rotina 2 e 480 para a 
rotina 3. Todas estas rotinas utilizam-se da funcao SET. cuja 
relativa lentidSo e aqui valonzada pelos efeitos graficos que 
produz. 



Eduardo Hauff 6 industrial e dirigente de empresa de const rucao civil. 
Desenvolve programas para a linha TRS-80 desde 1980. dedicando-se 
principalmente a area educacional. 



ria externa para ate 
quase 1 megabyte. 
E tern urn tectado prolissional. 
que da ao CP 300 uma versatilidade incnvel 
Ele pode ser ulilizado com programas de 
lita cassete, da mesma maneira que com 
programas em disco 



64K 



O unico na sua faixa que ja 
nasce corn 64 kbytes de memoria. 



expansao de memo- | t SSa. TRS-80 americano. E o que e melhor: 



voce estara apto a operar qualquer 
outro sistema de microcompulador 

Nenhum outro microcomputador pessoal 
na sua faixa tern tantas possibilidades de 
expansao ou desempenno igual, 

CP 300 Prologica 
ioutrosnao mmm p RO LOGICA 
lazem o que eie taz, i ^ mcrocomputadofes 
pelo prego que ■■ ■ 
ele cobra, 



rf 50 ™* ^*™^ 



Apresentaqoes para programas 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

1 10 

120 

130 

140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 



it******************************************** 

* * 

* APRESENTACOES PARA PROGRAMAS * 

* * 

* (C) - EDUARDO HAUFF - 1984 * 



*»«**«**»****«**»**«r**r 



>*»***»*****««**«*»* 



APRESENTACAO 1 

CLS:X=37:Y=18:M=32:P=467 

A$="* * TITULO * *" :BS=CHRS( 215) : FOR 

T=1T07 

1 TITULO: DE 467 a 489 - CHR$(215) = 

2 3 ESPACOS 

PRINT@P,AS; : FORZ = 1TOM+ 1 6 : SET( X , Y ) :X=X+1 :NEXT 
PRINT@P,B$; : FORZ=1TOM-26 :SET( X, Y ) :Y=Y+1 :NEXT 
PRINT@P,AS; :FOR7.= ITOM+16:SET(X,Y) :X=X-1 :NEXT 
PRINT@P,B$; :FORZ= 1TOM-26 : SET( X , Y ) :Y=Y-1 :NEXT 
PRINT@P,A$; :M=M+4:X=X-2:Y=Y-2:NEXT 
PRINT@984,"DIGITE (ENTER)"; 
IS=INKEYS:IFIS=""THEN200 

1 APRESENTACAO 2 

CLS:FORS=lT04:X=54:Y=22:M=4:FORT=1T06 
FORZ = 1 T0M+ 1 3 : SET ( X , Y ) : X=X+ 1 : NEXT 



/bU F0RZ=1T0M-4:SET(X,Y) :Y=Y+1 .-NEXT 

270 FORZ=1TOM+13:SET(X,Y) :X=X-1 :NEXT 

280 F0RZ=1T0M-4:SET(X,Y) :Y=Y-1 :NEXT 

290 IFS=1THENM=M+2:X=X-4:Y=Y-4 

300 IFS=2THENM=M+2:X=X-4:Y=Y+2 

310 IFS=3THENM=M+2:X=X+2:Y=Y+2 

320 IFS=4THENM=M+2:X=X+2:Y=Y-4 

3 30 NEXTT,S:F0RZ=54T07 1 : RESET (Z, 22) :RESET(Z,23) : 

NEXT 
340 PRINT@469,"* * TITULO * * " ; : PRINT@985 , 

"DIGITE (ENTER)",- 
350 I$=INKEY$:IFIS=""THEN350 
360 ' 

3 70 ' APRESENTACAO 3 
380 ' 

390 AS="* * TITULO * *" : BS=CHRS ( 2 1 5 ) 
400 ' TITULO: DE 469 a 491 CHR$ ( 2 1 5 ) = 

2 3 ESPACOS 

4 10 CLS:X=33:Y=12:M=39:P=469:FORF=1T06 

4 20 PRINT@P.AS; : FORZ= 1TOM+ 1 6 : SET( X, Y ) :X=X+1 :NEXT 

430 PRINT@P,B$; : FORZ= 1TOM-26 : SET( X , Y ) :Y=Y+1 :NEXT 

4 40 PRINT@P,A$; : FORZ= 1TOM+ 1 6 :SET( X, Y ) :X=X-1 : NEXT 

4 50 PRINT@P,B$; :FORZ= 1TOM-26 :SET( X, Y ) :Y=Y-1 :NEXT 

460 PRINT@P,A$; :M=M+2:X=X+1 :Y=Y+1 :NEXT 

470 PRINT©988,"DIGITE (ENTER)"; 

480 IS=INKEY$:IFIS=""THEN4 80ELSE1 10 
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Ttctado ptefhvorra 



A Microdigital apresenta 



a 
1 



I 



o novo TK2000 color. 

Que ta\ um micro de alto performance, que troz as principals caracterhticas 

c/os equipamentos mais sofistkados e que nao exige de voce urn grande 

investimento inicial?E que taf um micro que cresce de acordo com as suas 

necessidades? Sao estas as vantagens que vao fazer do novissimo 

TK 2000 Co/or um c/os ma/ores sucessos no setor. 

Veja: ele tern 64K de memoria RAM e 16K de memoria ROM, tecfado profissionol 

tipo maquina de escrever, recebe diskette e impressora com interface ja contido, 

trabalha em cores, oferece alta reso/ucoo grafted e som. 

Peca uma demonsiracao. Nunca tanto hi Ihe oferecido par tao pouco. 

Grande quantidade de software disponivei (entre eies: diversos aplicafivos 

comerciais e jogos a cores de alta reso/ucao grafica), 

Ele tern tudo que um 
micro deve ter.Menos opreco. 

Coi*o Poiio/ S40S9 - CEP 0} 000 - Sao Paula - SP - Taitx N* (01 1 / 37 008 - Mtdt ftff 

A vtnda not boat coia» do ratne, tofM mprnttohtodot d* fotoWdeo-iom • grandm% magaimn 

S» nati moo mncontiar <ntw tqmpomtftle no tva ctdad* ligut pato iOt 1 J 800-255-fl583- 






